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• EJECT 
TRANSFER VECTORS* 



m 



ORG 


10 Id 


ANSFER VECTOR 


FOR IOPAK ROUTINES! 


EQ • 


GETC 


EQ 


PUTS 


EQ 


PUTC 


EQ 


OPEN 


EQ 


CLOSE 


EQ 


RESET 


EQ 


WEOR 


EQ 


READ 


EQ 


WRITEOCT 


EQ 


TEXT 


EQ 


GETS 


EQ 


INTGR 


EQ 


EREAL 


EQ 


FREAL 


EQ 


ALF 


EQ 


CHAR 


EQ 


BOOL 


EQ 


REWRITE 



ORG 1328 

TRANSFER VECTOR FOR EXTERNAL ROUTINES! 



• 


EXTVECT 


EQU 


* 






SI NCOS 


VFO 


60/EXP 


SIN 






DATA 





COS 


• 


EXP 


VFD 


60/LN 


EXP 




LN 


VFO 


6G/SQRF 


LN 




SQRT 


VFD 


60/ARCTAN 


SORT 


# 


ARCTAN 


VFO 


60 /NULL 


ARCTAN 




NULL 


DATA 


Q 




• 


PHD 


VFO 


60 / NULL 1 






- N -_y_-_._. 


OATA 








w 


ABNORMAL EXIT 


TRANSFERS! 










OKj 


1/Ob 










A3NLEX aXGRO 


MSG 








m 


EQ 
ENDM 


ABN.EX! 








# 


ABN.EX 


ASSHSG 


FOR SA+ 


COMPILER 


OPTION 




ABN.EX 


INOXMSG 


FOR $X+ 


COMPILER 


OPTION 




ABN.EX 


DIVMSG 


FOR $D* 


COMPILER 


OPTION 


• 


8SS 
LX7 
S85 


i 
X7 








• 


LX7 


18 










ABN.EX 


OVFLMSG 


FOR $0* 


COMPILER 


OPTION 




BSS 


1 








• 


TRANSFER WORD 
8X7 


FOR ABNORMAL 
Xi 


EXITS CUT OF 


EXTERNAL 


ROUTINES! 




EQ 


ABN.EXI 


XC ALREADY CONTAINS THE MESSAGE ADDRESS 



EJECT 
EFETS AND CHARACTER BUFFERS FOR INPUT AND OUTPUT, 
FETS FOR PASCAL, PASCLGO, TftE KEEP FILE, AND PMOFILE 
(THE BUFFERS ARE LOCATED AT THE END OF POSYS) I 



BIGBUF 
BUFL&TH 



£QJ 
EQU 



5Q00B 
1001B 



EFET FORMAT (FET - ±i t 

BIT 59 * EOF BIT 

BITS 56-56: SPECIFICATION 

BIT 55 I CHAR/BINARY (CHAR = 0) 

BIT 5k I READ/WRITE BIT (READ = 0) 

BITS i+3-531 MASK FOR EOF-TEST 

BITS 18-^71 UNUSED 

BITS C-171 LRL (PASCAL RECORD LENGTH) 



INPUT (USED BY THE COMPILER AND THE USER) t 

BSS 10 CHARACTER BUFFER 

VFO 6G/*-13 POINTER USED BY IOPAK 

vfd i/a,3/a ,i/a»i/o,6/20B, j»a/i 

NOT £OF,IN, CHAR, READ, MASK FOR £OR,LRL=l 
DATA 5LINPUT NAME MAY BE CHANGED LATER 

VFD 68/INBUF,68/lNBUF,6fi/INBUF 

VFO 6Q/INBUF+8UFL3TH 



INFET 



OUTPUT (USED BY THE COMPILER ,THE JSER, AND FQCOUT) t 
BSS 10 CHARACTER BUFFER 

VFD 60/*-10 POINTER USED BY IOPAK 

VFD 1/1,3/2,1/0,1/1,6/308,^8/1 

EOF, OUT, CHAR, WRITE, MASK FOR EOF,LRL=l 
OUTFET DATA 6L0UTPUT NAME MAY BE CHANGED LATER 

VFD 6fl/0UT8UF,6i/0UTBUF,69/0UTBUF 

VFO 60/OUT3UF+3UFLGTH 



PASCAL (USED BY POSYS ONLY) I 

PASCAL DATA 6LPASCAL 

VFO 68/MEADER, 68 /HEADER, 60/HEADER 

VFD 6S/HEA0ER+&S CORRECT LIMIT 



KNOWN AT RUN-TIME 



PASCLGO (USED 
PASCLGO DATA 
VFD 
VFO 



BY POSYS ONLY) I 
7LPASCLG0 

60/8IGBUF, 61 /BIGBUF, 60 /BIGBUF 
60/HEADER+&5 CORRECT LIMIT 



KNOWN AT RUN-TIME 



THE FOLLOWING FEJ IS USED. EITHER FOR THE KEEP FILE (IF ANY), 



OR FOR THE LOAD FILE (IF ANY), OR NOT AT ALL. 

KE£PF£T DATA NAME PASSED AS PARAMETER 

VFU 63/«tAO£R,t>y/HtAO£R,b0/rt£AO£R 

VFD 60/HEAOER+65 CORRECT LIMIT KNOWN AT RUN-TIME. 



LOAOFILE EQU 



KEEPFET 



PMDFILE (USED 
PMDFET DATA 
VFD 
VFD 
EJECT 

DECLARATIONS 



BY POSYS ONLY) I 
7LPMDFILE 
6Q/IN8UF,6a/INBUF,60/IN8UF 

60/IN8UF+3UFL3TH 



THE ADDRESS 
PARMLIST EQU 



OF THE COMPILER 
8IG8UF+1 



PARAMETER RECORD* 



DESCRIPTION (CF. HEADER) I 



ICQ 

ERRFLAG 
ERRS ITS 



EQU 
EQU 
EQU 



PARMLIST t 
PARMLIST+i * 
PARMLIST+2 X 
PARMLIST+6 * 
PARMLIST+7 * 
PARMLIST+3 I 
PARMLIST+9 * 
PARMLIST +10* 



FIRST ADDRESS AVAILABLE TO JSER PROGRAM 

ERROR FLAG 

FOUR WORDS OF ERROR BITS 

LOAD POINT OF BINARY INFORMATION 

LIMIT OF COOE 

LOAD POINT OF JUMP TABLE 

EXTERNAL ROUTINES FLAGS 

ENTRY POINT 



ERRLIM 



EQU 



PARMLIST+6 



• 



CERTAIN FLAGS! 
FQCFLAG DATA 
FQCFILFL DATA 
EXECFLAG DATA 



t 9 IFF FQC IS ACTIVE 

t IFF FQCFILE EXISTS 

= 1 IF A LOAD PROGRAM IS BEING EXECUTED, 

= 2 DURING EXECUTION OF A COMPILED PROGR. , 

= OTHERWISE. 



FIELD 
F.L5TH 



LENGTH 
DATA 



STATUS 





WORDI 



CONSTANTS USED 
IONOGO DATA 
FQCNAME DATA 



IN CONNECT ION WITH THE PASCAL 
5LINPUT ,6L0yTPUT,<*LN0G0 
7LFQCFILE 



CALL CARD OPTIONS* 



PP REQUEST 
A8TREQ VFD 
RPVREQ VFD 



WORDS* 

18/3LAST,6/8,36/6RN0DUMP 
18/3LRPV, 2/1, 16/278, 6/3, 18/RPVT AS 



CONCERNING CURRENT 
RECPOS DATA 1 

FQCPOS EQU 8 

ERRECPOS EQU 10 

PMOPOS EQU 11 



POSITION ON 



FILE PASCAL: 
(POSYS HAVING NUMBER 0) 
POSITION OF FQCOUT ON PASCAL 
POSITION OF ERROR MESSAGES RECORD 
POSITION GF PMD ROUTINE 



BASE ADDRESS OF RUN-TIME STACK t 
RTS8ASE DATA 



CERTAIN LENGTHS^ 


1 


PMDLGTH 


EQU 


3GQ8 


JMPTABLG 


EQJ 


5Q 


CTRMAX 


EQU 


1600 



LENGTH OF PMD ROUTINE 
LENGTH OF JUMP TABLE 
MAX, NUMBER OF COUNTERS 



FOR FQC 



PARAMETER TABLEI 
PARAMS DATA L=P= 



PROGRAM FILE 



_>< 



# 


PPAR 


DATA 
DATA 




LELE LISTING FILE 






LPrtk 


OA1A 
DATA 


G 

LSDS DATA FILE 




• 


DPAR 


OATA 
DATA 




LSRS RESULT FILE 






RPAR 


DATA 







• 




DATA 


LEOPTE OPTION (NOGO OR FC OR 


FC*) 




OPTPAR 


DATA 
OATA 




LELOADS LOAD FILE 




• 


LOAOPAR 


DATA 
DATA 




LSFLE EXECUTION FL 






FLPAR 


DATA 







• 




DATA 


LELLE EXECUTION LINE LIMIT 






LLPAR 


OATA 
DATA 


2 

LEKEEPFS KEEP FILE 




• 


KEEPFPAR 


DATA 
OATA 


a 

LEFCLE FREQUENCY COUNT LOWER 






FCLPAR 


DATA 


a 




# 




DATA 


LEFCUE FREQUENCY COUNT UPPER 






FCUPAR 


DATA 
DATA 


S 






• 












DAYFILE MES SAGES l 






OATEMSGi 


DIS 


,E- PASCALSYSTEM VERS. . E 




• 


OATEMSG2 


DIS 








ENDCOMP 


DIS 


,E- END COMPILATIONS 






ENDHSG 


DIS 


,E- ENO PASCALS 




• 


KEEPMSG 


DIS 


,S- BIN. FILE KEPT ON ...... .S 






ERRMSG1 


OIS 


,E* ERROR IN PASCAL CAROE 






ERRMSG2 


DIS 


,=* KEYWORD USEO TWICES 




• 


ERRMSG3 


DIS 


,=♦ ILLEGAL FLE 






£RRMSG<+ 


OIS 


,=+ ILLEGAL LLE 






ERRMSG5 


DIS 


,E* COMPILER OR PROGRAM NEEDS CM. 


* 


• 


ERRMSG6 


DIS 


,E* ERROR(S) IN PASCAL PROGRAMS 






ERRMSG7 


DIS 


,E* FL TOO SMALLE 






ERRHSG8 


DIS 


,E* BAD FCL OR FCUE 




• 


LOAOMSG 


DIS 


,S* LOAOFILE BADE 






READMSGi 


OIS 


,S* INTEGER INPUT EXPECTEDE 






REAQMSG2 


DIS 


,E* BAD INPUTE 




# 


AOQRMSG 


OIS 


,E* AODR. = ......E 






MEN 


DIS 


,=* ERRORS IN I/OE 






MER 


DIS 


,E* ERROR IN RESETS 




• 


ME OUT 


OIS 


,E* TRIED TO WRITE ON IN-FILES 






ME OF 


DIS 


,=* TRIED TO READ PAST EOFE 






LINEMSG 


DIS 


,S* LINE LIMIT EXCEEDEQS 




• 


ASSMSG 


DIS 


,E* VALUE OUT OF RANGES 






INOXMSG 


OIS 


,S* INDEX OR CASE VAR OUT OF RANGES 






DIVMSG 


DIS 


,=♦ DIVISION BY ZEROS 




# 


OVFLMSG 


DIS 


,S* RUN-TIME STACK OVERFLOWS 






NQPMDMSS 


DIS 


,S* PROGRAM TOO LARGE FOR PMDS 






IMPPMO 


DIS 


,E* PMO IMPOSSIBLES 




• 


MQQEMSG 


DIS 


,S* MODE = OS 






CALL 


SKeRO 


P + i 




• 




£0. 
ENDM 


P 




m 


WAIT 


MACRO 


I 






USES 8iSAi»l. 


81 








NZ 


X ■»!,'♦ 




m 




ENOM 







PP REQUEST ROUTINE! 
PPREQ OATA 
ENTRY COND 






Xfi = 

EXIT CONO 
USES A«+fAo» 
MX4 
BX4 
BX6 
SA6 
LXa 
SX6 
BX6 
MXii 
LX^ 
BX6 
SA6 
SA4 
NZ 
EQ 



PP ROUTINE NAHE, Al/Xl = LFN + C/S, 
* Al s FET-AODR (UNCHANGED) 
Xu ,x*,Xo. 



X6 = FUNGTION CODE 



42 

X1*X4 

X6+K4 

Al 

42 

Al 

X6+X0 

1 

41 

X6+XC 

1 

1 

X4,* 

PPREQ 



MASK FOR LFN 



SET COOE IN FET 



RECALL BIT 



• 
• 
# 



MESS 
UPON 

JSES 
MESS 



(ISSUES MESSAGE 



ENTRY, 
A2,A6, 
8SS 
SX6 
LX6 
3X6 
SA6 
WAIT 
EQ 



xe 
xo 



s POINTER 
, X2 , X6 • 
1 

3LMSG 
42 

X6+X0 
1 
2 
MESS 



REQUEST WITHOUT AUTO-RECALL). 
TO MESSAGE. 



COMBINE WITH MSG-AOORESS 



MEMORY REQUEST ROUTINE. 
ENTRY CONOt XI = DESIRED 



FL» A2/X2 = F.LGTH. 



EXIT 

USES 
MEMREQ 



CONDJ XI = X6 
X2, A3/X3, Bl 

BSS 1 
8X6 XI 
LX6 30 
SA6 A2 



= tF.LGTH] = 
= 1. 



NEW FIELO LENGTH. 



MX2 

SX6 

LX6 

LX2 

BX6 

SX2 

3X6 

SA6 

WAIT 

BXb 

SA6 

EQ 



1 

3RMEM 

42 

41 

X6+X2 

A2 

X6 + X2 

Bl 

3 

XI 

A2 

MEMREQ 






SKIP FORWARD PASCAL ROUTINE! 



UPON 
USES 
SKIPF 



ENTRY, X3 : 
XG, Al/Xl, 

BSS 
SA1 

Mxy 

8X6 

O Ait 

BX6 
SA6 



= SKIP COUNT. 
A6/X6, 81 = 1, 
1 

PASCAL 
42 

X1*X0 
2428 
X6+X0 
Al 



SKIPF 



SX6 
LX6 

MX5 
LXu 



3RCIO 

42 

1 



8X6 


X6+X0 


LXJ 


13 


BAt) 


X6+X3 


sxe 


PASCAL 


8X6 


X6+X0 


SA6 


Bl 


WAIT 


i 


EQ 


SKIPF 



RECALL 3IT 
NUMBER OF RECORDS 

PROCEDURE TRANSFORM BINARY HUMBER INTO ITS DISPLAY CODE FORMI 

• CONVERTS 82 < 10 OCTAL DIGITS TAKEN FROM THE LOWER END OF X5 IMTO 
DISPLAY CODE AND STORES THE RESULT LEFTMOST INTO X6. X5 IS THEREBY 
SHIFTED LEFT BY (60 - 3*B2>. 82 IS UPON EXIT. 

W USES XI, X2, Bi = 1, B3. 

3IN.DISP 3SS 1 
SX6 BQ 

• MX1 57 (COMPLEMENT OF) MASK 
SB3 338 =0= 

8D1 8X2 -X1*X5 EXTRACT OCTAL DIGIT 

• SX2 X2+B3 
BX6 X6+X2 
LX6 5h 

• LX5 57 NEXT OCTAL DIGIT RIGHTMOST 
SB2 82-81 

NZ B2,BD1 

• EQ BIN.DISP 

PROCEDURE TRANSFORM DISPLAY CODE NUMBER TO BINARY. 

• UPON ENTRY, XI = LEFT ADJUSTED, ZERO-FILLED DISPLAY CODE NUMBER. 
UPON EXIT, X6 = CONVERTED XI IF NO ERROR ENCOUNTERED, 

<*GU...Q0B OTHERWISE. 

• USES XC,X2,X3, 82. 
D.8ERR MX6 1 
OISP.BIN 8SS 1 

• MXO 5k MASK 
SX6 BO 

SB2 -1R0 

• EQ D.32 

0.31 SX3 X2-1R8 RESULT SHOULO BE < 

SX2 X2+82 RESULT SHOULD BE > 

• BX3 -X2*X3 

PL X3,Q.8ERR ERROR IF X2 < OR X3 > 

LX6 3 

• BX6 X6+X2 
D.82 LXi 6 

8X2 -X0*X1 

• NZ X2,Q. Bl 
EQ DISP.BIN 

• IF FQCFILE EXISTS, GIVE IT OISP CODE OUTPUT AND CLOSE/UNLOAD IT! 
PRTFQC 8SS 1 

SA1 FQCFILFL 

• ZR XI, PRTFQC 
SA5 OUTFET 

SXQ *+08 DISP CODE OUTPUT 

• SA2 A5+81 

BX6 X2+X0 

• SXQ 31 
LXi, 13 

8X6 X6+X0 L - 1 IN CFET+1] 

• SA6 A5 + 81 
SA2 FQCNAME 

^ 8X6 X2 

• SAB A5 
SXO 3RCLO 



SAi A5 
SX6 1728 
RJ PPRfc.U 
BX6 X5 
SA6 A5 
EU PRTFQC 
EJECT 
PROCEDURE LOAO EXTERNAL ROUTINES! 
UPON ENTRY, Al/Xi = EXTVECT OR PMO, 
X2 = CEXTFLAGSJ OR 
X^ = LOAD POINT OF 
Xb = LIMIT OF LAST 
£RTSBAS£] = X6. 
REGISTERS EXCEPT A3,A5. 



CLOSE/UNLOAD 



UPON EXIT, 



USES ALL 



1 (1 FOR PMO) , 
(FIRST) ROUTINE, 
LOAOED ROUTINE, 

EXPECTS 31 = 1, 





SAVEX2 


BSS 


1 






• 


SAVEXi 


8SS 


1 








SAVEXif 


3SS 


1 








NEXTX<+ 


BSS 


1 






• 














LOADEXTS 


ass 


1 






• 


INSPECT THE EXTERNALS FLAGS 


AND 


LOAD THE DESIRED ROUTINES! 






S85 


59 




SHIFT COUNT 






SX6 


OUTSUF 






• 




SA6 


PASCAL+2 




IN 






SA6 


A6 + 31 




OUT 






SX3 


BO 




COUNTER FOR SKIPF 


• 


LQEXTS1 


LXS 

NG 

SX3 


85,*: 2 

Xfl, LOAD. ONE 

X3+81 




CURRENTLY RELEVANT BIT LEFTMOST 


• 


L0EXTS2 


AX2 
SAI 
NZ 


1 

XI 

X2,LDEXTS1 






# 




3X6 

SAb 


X4 
RTSBASE 






• 




£Q 


LOADEXTS 








LOAD THE DESIRED EXTERNAL ROUTINE! 


• 


LOAD. ONE 


8X6 
SA6 
8X6 


X2 

SAVEX2 

XI 






• 




SA6 
8X6 
SA6 


SAVEX1 
X<* 

SAVEX4 






• 














UPDATE 


RECPOS 


AND SKIP FORWARD 


3Y CX3J! 






SAI 


RECPOS 






• 




1X6 
SX6 

SAb 


X1+X3 
X6+31 
Ai 






• 




ZR 

RJ 


X3,LD.l 
SKIPF 






• 


READ IN Oi>l£ RECORD FROM LIBRARY 


INTO 0UT3UF! 




LD.l 


sxs 

SX7 


3RC10 
0UT8UF 






• 




SA7 


PASCAL+2 




IN 






SX6 


123 




READ 






SAI 


PASCAL 






• 


PREFIX 


RJ 
TABLE 


PPREQ 






• 




SA* 


SAV£X<+ 




LOAD POINT OF ROUTINE AND, AS 8 


V 




SB4 


X<+ 




RELOCATION CONSTANT. 



# 



• 
• 







SA1 


OUTBUF 


# 




LX1 


2k 




PIOL 


TABLE 




• 




SB2 


Xi+Bi 






SAi 


A 1+82 






SA2 


ai+bi 


• 




SX6 


X2+8<* 






SA2 


F.LGTH 






1X2 


X6-X2 


• 




PL 


X2,FL.ERR 






SA6 


N£XTX<* 


# 


ENTR 


TABLE* 






ENTR 


LX1 


2k 






S82 


Xl+81 


• 




SA2 


Al+82 






LX2 


23 






SB2 


X2 


• 




SS2 


30-32 






SAi 


SAVEX1 


• 










ENTR.l 


SA2 


A 2 +2 






SX6 


X2 


• 




1X6 


X6+X4 






SX2 


fli»3 






LX2 


Zk 


• 




BX6 


X6+X2 






LX6 


30 






SA6 


Xi+82 


• 












SB2 


B2+81 






NE 


B2, ENTR.l 


• 










PROCESS TEXT 


TABLES* 






MXO 


3 


• 




Lxe 


k 






SAi 


A2 






SA2 


PASCAL+2 


• 




S83 


X2 






SB6 


15 






LX5 


3b, Kk 


• 




LX6 


36, X5 




TEXTTA8L SB2 


Ai+81 


• 




EQ 


82,83 ,E NO TEXT 






SAI 


32 






SAy 


X 1*8 k 


• 




LX1 


2 k 






SB? 


Xl-2 






SAi 


Ai + 81 


• 




BX2 


XI 






SB6 


80-81 


• 


TEXT WORD SA1 


A 1+81 






LX2 


k 






3X3 


xz*m 


• 




S86 


86+81 






NZ 


X3, RE LOC 






BX7 


XI 


• 




SA7 


AO+36 






LT 


86,87 ,TEXTWORD 






EQ 


TEXTTA9L 



XI *= IOENTIF WORD 
WC RIGHTMOST 



WC + 1 

XI *= IDENTIFICATION WORD 

X2 *= NAME/LENGTH OF ROUTINE 

X6 *= LIMIT OF ROUTINE 

RESULT MUST BE < 

LOAD POINT OF NEXT ROUTINE 



WC RIGHTMOST 
WC + i 



B2 = WC/2 = NUMBER OF ENTRY POINTS 
32 IS USED AS COUNTER AND AS DISPLA- 
CEMENT RELATIVE TO THE CONTENTS OF XI 
XI = 1 + (ADDRESS OF LAST TRANSFER 
WORD FOR CURRENT ROUTINE) 

X6 *= LOAD ADDRESS OF ENTRY POINT 
RELOCATE 

EQ 



TRANSFER WORD NOW CONTAINS THE COR- 
RECT JUMP INSTRUCTION 



• 
• 
• 
• 



• 
# 



TO MASK OUT RELOCATION BITS 

IN 

LIMIT OF TEXT 

FOR MIDDLE ADDRESS RELOCATION 
FOR UPPER ADDRESS RELOCATION 



RETURN IF END OF DECK REACHED 

XI 1= IDENTIFICATION WORD 

A8 1= RELOCATED LOAO ADDRESS OF TEXT 

37 »= WC-2 (LIMIT FOR B6) 

X2 *= RELOCATION WORD 

B6 IS USED SIMULTANEOUSLY AS C&UNTER 

ANO AS DISPLACEMENT RELATIVE TO AO. 

XI *= TEXT WORD 

CURRENT RELOCATION BYTE RIGHTMOST 

X3 *= RELOCATION BYTE 

GOTO RELOC IF RELOCATION WANTED 

TEXT WORD LOADED 



• 






RELOC 



SB2 



X3 







JP 


♦-1+BZ 


# 










GOIO* 


Ia7 


A 1 *• A k 


1 




SA7 


AO + 36 


• 




LT 


86,a7,TEXTWOR0 


'1 




EQ 


TEXTTA8L 




OIOO« 


1X7 


X1+X5 


! # 




SA7 


AO + 86 






LT 


B6,87,TEXTW0RD 






EQ 


TEXTTA8L 


• 


OIIOl 


BSS 


2 


■ 


IOOO 1 


1X7 


X1+X6 






SA7 


AO+86 






LT 


86,87,TEXTW0RD 


1 




EQ 


TEXTTA3L 




10 101 


1X7 


Xi+Xtf 


|i # 




1X7 


X7+X6 


.i 




SA7 


A0+B6 






LT 


86,87,T£XTW0RD 


• 

r 




EQ 


TEXTTA3L 




ENDTEXT 


Skk 


. NEXTX4 


• 




SA2 


SAVEX2 






SA1 


SAVEXi 






SX3 


BO 


• 




£Q 


L0EMTS2 



SWITCH 

LOWER AQDRES5 RELOCATtU 
TEXT WORD LOADED 



MIDDLE ADDRESS RELOCATED 
TEXTWORO LOADED 



IMPOSSIBLE COMBINATION 
UPPER AOORESS RELOCATED 
TEXT WORD LOADED 



LOWER AOORESS RELOCATED 
UPPER AOORESS RELOCATED 



Xk t= LOAD POINT OF NEXT ROUTINE 






THE FIELD LENGTH IS TOO SMALL FOR LOADING* 
FL.ERR SXfi ERRMSG7 

RJ MESS 

EQ A8N.EX2 

EJECT 
PROCEDURE LOAD 
UPON ENTRY, Ai/Xi - FET OF PASCAL OR OF LOAOFILE OR OF PASCLGO. 



LOAD 



BSS 



READ THE CODE AND THE JUMP TABLE INTO THE BUFFER! 





SA2 


LOA0PT 






sxs 


3RCI0 




• 


8X6 


X2 






SA6 


Ai+2 


IN 




SA6 


A6+81 


OUT 


# 


SX6 


123 


READ 3INARY 




RJ 


PPREQ 




• 


SET [RTSBASEM 








SA2 


LIMCODE 






8X6 


X2 




• 


SA6 


RTS8ASE 






MOVE THE JUMP 


TABLE, IF ANY 




• 


SA2 


LPJMPTA3 






ZR 


X2,L0AD 




# 


SA3 


A2-81 


X3 * = AODRE 




S§g 


»8ffaeLG-i 






BX6 


Xk 




• 


SA6 


X2+32 






SB2 


B2-81 






GE 


B2,8fl,*-i 





EQ LOAO 

EJECT 
PROCEDURE FREQUENCY COUNTS* 
THIS P^09i,QUR£ QO^^TS OF TWO PARTS, CPFQC1 AND CPFQC2, 



CPFQC1 IS CALLED BEFORE EXECUTION OF THE USER PROGRAM ANO PASSES 
PARAMETERS TC FQC. <FQC ITSELF IS CALLED ANO RECALLEO BY PRO- 
CEDURE GU«) CPFQ.C2 LOAOS AND EXECUTES FQCOUT. 



FQCDAT 



VFD 
8SS 
VFD 



58/0,1/0,1/9 

1 

60/8IG3UF+5 



BLKLGTH 8SS 



GET FCL ANO FCU* 





CPFOCi BSS 


i 




SA2 


LPJMPTA8 


• 


SX6 


X2KJMPTA3LG 




SAi 


FCLPAR 




ZR 


XI, CPFQCi.i 


• 


RJ 


DISP.BIN 




NG 


X6,FQCERR 




CPFQCi.l SA6 


Ai 


• 


8X5 


X6 




SA2 


LIHCOOE 




BXb 


X2 


• 


SAI 


FCUPAR 




ZR 


X1,CPFQG1.2 




RJ 


DISP.BIN 


• 


NG 


X6,FQCERR 




CPFQC1.2 1X0 


X5-X6 




PL 


XBjFUCERR 


• 


8X0 


-X0 



DEFAULT FCLI BEGINNING OF CODE 
LOWER BOUND OF COOE TO SUPERVISE 

CONVERT TO BINARY 

CHECK FOR ERROR 

STORE FCL BINARY 

X5 1= FCL 

DEFAULT FCUI LIMIT OF CODE 

UPPER 80UNO OF CODE TO SUPERVISE 

CONVERT TO BINARY 

CHECK FOR ERROR 

-(LENGTH OF CODE TO BE MONITORED) 

CHECK FOR LENGTH > 

X0 *= +LENGTH 



AT THIS POINT X5 = FCL, X6 = FCU, XQ = X6-X5. 



• 



FINO THE SLOCK LENGTH AND ITS 2LOG, 
SUCH THAT BLKLGTH = 2*H AND (LENGTH 
BER OF COUNTERS). 



I.E. INTEGERS BLKLGTH AND N 
OF CODE>/eLKLGTH < (MAX. N«JM- 



SX1 






CTRMAX/2 


S84 






±81 


SB^ 






BM-81 


1X2 






Xl-XO 


NG 






X2,*-l 


SXi+ 






Bk 


SX7 






Bl 


LX7 






B<+,X7 


SA7 






BLKLGTH 


ROUND LENGTH 


OF 


CODE TO 


AND ADJUST 


FCU* 




IXij 






X0+X7 


sxo 






XO-i 


AXu 






Bt»»X0 


LXQ 






Bh,M0 


1X6 






X5+X0 


SA6 






FCUPAR 



NOW Xk - Bk = N 



NOW X7 = BLKLGTH 



NEXT HIGHER INTEGER MULTIPLE OF BLKLGTH 



AT THIS POINT X% = 2 LOG (BLKLGTH) , X5 = FCL 

X7 = BLKLGTH. IF FC* IS SPECIFIED, WE WANT 
< FCU < CLIMCODE] ♦ CBLKLGTWJ, OTHERWISE 

LENGTH. 

MXO 5k 

SAI OPTPAR 

LXi 13 

BXy -X3*Xi 

sxa xo-iR* 

NZ X0,CPFQC1.3 IF OPT*FC* THEN 

SAi LPJMPTA8 BEGIN 
SXi Xl+JMPTABLG XI *= [LPJMPTAB3 
SA2_ LIMCODE X2_t^lLI_MC0DEi 



< X6 = FCU AND 
tLPJMPTABl + JMPTABL3 < 

< FCL < FCU < FIELD 



FCL 



+ JMPTABLG,, 
7 





1X2 




X2+X7 




END ELSE 


• 


EQ 




CPFQCi.**- 




BEGIN XI != !., 




CPFQGl.d SX1 




U 




X2 *= FIELD LENGTH 


• 


SA2 




F.LGTH 




END 




CHECK Xi < 


X&, 


X6 > X21 








CPFQC1.4 IXC 




X5-X1 






• 


NG 
IXu 




XQ, FQCERR 
X2-X6 






• 


NG 




XO, FQCERR 






SET UP FQC 


DATA 


TA3LEI 






• 


LXk 
LX5 
8X6 
3X6 




<+3 
Zk 

X^+X6 
X5+X6 






• 


SA6 

EQ 




FQCOAT+1 
CPFQCi 






• 


FQCERR SXa 
RJ 




ERRMSG8 

MESS 






• 


EQ 




ABN.EX3 






• 


CPFQC2 3SS 




1 




SKIP FORWARD TO 


FREQUENCY 


COUNTS OUTPUT ROUTINE FQCOUTl 




SAI 




RECPOS 






• 


SX3 
SX6 




Xl-FQCPQS 

HEADER 








SA6 




PASGAL+2 




IN 


• 


SA6 




A6+S1 




OUT 




ZR 




X3,CPFQC2. 


1 






8X3 




-X3 






• 


RJ 




SKIPF 








READ THE HEADERI 






# 


CPFQC2.1 sxa 




3RC10 








SX6 




12B 




REAO 




SAI 




PASCAL 






• 


RJ 




PPREQ 








RAISE THE FIELD 


LENGTH IF 


NECESSARY. LOAD. 


• 


SAI 
SA2 




REQRDFL 

F.LSTH 

X2-X1 






# 


PL 
RJ 




xa,CPFQC2, 
MEMREQ 


2 




• 


SA6 

CPFQC2.2 SAI 

RJ 




PASCAL+4 

PASCAL 
LOAD 




LIMIT 


# 


SX6 

SA6 




FQCPOS+2 
RECPOS 




FQCOUT CONSISTS OF 2 RE 


• 


SET LINE LIMIT. 


PASS FCL, 


FCU, 


FCKIND AND BLOCK LENGTH. 




EXECUTE. 










• 


SAI 
MXfl 
8X6 
SA6 




INFET-1 
1 

-xa*xi 

Al 






• 

• 


SX6 

SAb 
SB2 
SAi 
SA2 




-81 

LINECTR 

BO 

FCLPAR 

FCUPAR 







# 






# 



_ 3X6 XI 

• SA6 5JJ18 
6Xb X2 
SA6 50a2B 

• SAi 3LKLGTH 
8X6 XI 
SA6 5003B 

• MXS 5t» 
SAI OPTPAR 
LX1 18 

• BX6 -XQ*X1 
SA6 500%B 
S33 BO 

• RJ GO 

EQ CPFaC2 
EJECT 

• PROCEDURE GO. 

EXECUTES THE LOADED PROGRAM. 

USES ALL REGISTERS, BUT LEAVES 81 = 1 UNCHANGED. 

• UPON ENTRY, B2 * IF FQC IS TO 8E CALLED, 

B3 = VALUE TO STORE AT EXECFLAG. 



NOW X6 a E*= OR X6 - 



• 


RCLFQC 


VFD 




18/3LRCL , 1/0 ,i/l ,40/FQCOAT 




GO 


BSS 




1 






• 


ASK FOR A NEW PAGE IF THE 


OJTPUT FILEiS NAME IS =OUTP 






SAi 




OUTFET 






• 




SA2 
MXu 

3X« 
BXO 




IONSGO+1 
kZ 

X1*X0 
X2-XQ 




X2 1= =OUTPUT= 

EXTRACT FILE NAME 
COMPARE WITH EOUTPUT5 


• 




NZ 

SAI 




X 8 , 3 . 1 
OUTFET-2 






• 




SX6 
SA6 
S87 




1R1 
XI 

Ai+81 






• 




CALL 

SAI 

SX6 




PJTG 

OUTFET-2 






EOL 


• 




SA6 
S37 




XI 
Al+31 






m 




CALL 




PJTC 








SET B4, B5>, 


X7* 










SO.l 


SAI 




F.L3TH 






• 




S3<* 
SX7 
SAI 




Xi-32 

GO. 3 
LPJMPTA8 




Bk 1= FIELD LENGTH - 
RETURN ADDRESS 


• 




SB5 




XH-PMDL3TH+JMPTABLS 






SAi 




RTS8ASE 










SB7 




XI 






• 




G£ 
SB5 




B5,87,*+i 

B7 










sm 


35 = 


B5XCGOOELENGTH 


,PMDLGTH) + LIMIT OF MP 


• 




SA6 
SAI 




RTSBASE 
ENTRY PT 






• 




SB7 




XI 








IF 82 


* S THEN 


SET FQCFLAG AND 


CALL FQCt 


• 




ZR 
SX6 

SAB 
SX6 




82, SO, 2 
1 

FQCFLAG 
3RF9C 




< 


# 




LX6 
MXO 




42 
1 







32 



DATA 



_ LXQ kl 

# 8X6 X6+K0 

S*u fgcqat 

8X6 X6+X0 

# SA6 81 
WAIT i 

GO. 2 SX6 B3 

# SAB EXECFLAG 
JP 37 

# GO. 3 SB1 1 

SX6 BO 

SAB EXECFLAG 

# SA1 FQCFLAG 
SB2 

# IF [FQCFLAG] t THEN RECALL FQC, SET B2 »= i AND 
SET IFQCFLAG3 1 = Q AGAIN: 

ZR XI, GO 

# SX7 2 

SA7 FQCDAT 

SAi RCLFQC 

# 8X6 XI 
SAB 81 
WAIT 1 

# SX6 80 

SA6 FQCFLAG 

SB2 1 

# EQ GO 
EJECT 

PROCEDURE KEEP 

# PRODUCES A NEW LOAOABLE BINARY DECK. 

UPON ENTRY, XI CONTAINS THE NAME OF THE KEEP FILE, AND THE 
PROGRAM TO 8E KEPT IS LOADED. 

# USES Ai,A2,A3,A<+,A6,A7, 31 = i,B2, 

X«3,Xi,X2,X3,Xi+*X6,X7. 

# TIM.ANSW BSS 1 
LP.LPJMP 3SS 1 

# KEEP BSS i 

BX6 XI NAME OF KEEP FILE 

SA6 KEEPFET 

# SA6 KEEPMSG+2 

GET THE DATEI 

# MX1 1 
LX1 25 
SX6 3RTIM 

# LX6 Wl 
BX6 X6+X1 
SX1 TIM.ANSW 

# 8X6 X6+X1 
SA6 Bl 
WAIT 2 

% SAI XI 

3X6 XI 

SA6 DATE 

SET IREQRDFL3I 

SAI F.LGTH 

# 3X6 XI 

SA6 REQRDFL 

# CLOAOPT3 *= MIN<CLOADPT3,£LPJMPTA83> ., CLPJMPTA83 X- 

SA2 LPJHPTA8 






m 
m 



# 












# 



SA3 


LOAOPT 






IXS 


X2-X3 






LX3 


18 






8X6 


X3+X2 






SA6 


LP.LPJMP 






SX6 


BO 






SA6 


A2 






PL 


XO, KEEP.I 






BX6 


X2 






SA6 


A3 






WRITE OUT THE 


HEADER 1 






KEEP.l SX6 


HEADERS 






SA6 


KE£PFET*2 




IN 


SX6 


HEAOER 






SAb 


A6+31 




OUT 


SAi 


KEEPFET 






SXu 


3RCIO 






SX6 


268 




WRITER 


RJ 


PPREQ 






WRITE OUT THE 


JUMP TABLE ANO 


THE CODE! 


SA2 


LOAOPT 






SA3 


A2+31 




LIMCODE 


BX6 


X2 






SAb 


KEEPFET +3 




OUT 


8X6 


X3 






SA6 


A6-31 




IN 


SXO 


3RCIO 






SX6 


263 




WRITER 


SAI 


KEEPFET 






RJ 


PPREQ 






RESTORE ILOADPT1 AND tLPJMPTABl 


FCR EXECUTION! 


SAI 


LP.LPJMP 






SX6 


Xi 






SAb 


LPJMPTAB 






A XI 


13 






8X6 


XI 






SA6 


LOAOPT 






ISSUE A OAYFILE MESSAGE ANO 


RETURN* 


sxa 


KEEPMSG 






RJ 


MESS 






EQ 


KEEP 







• 



EJECT 
PROCEDURE PRINT ERROR MESSAGES. 

WOROS IERRBITS], tERRBI TS+iJ , . . . , I ERRLIM-i] EACH CONTAIN 32 RIGHT- 
MOST ERROR BITS WHICH MAY 3£ SET 3Y THE COMPILER. THIS ROUTINE 
INSPECTS EACH SUCH SIT ANO, ACCORDING TO WHETHER IT IS ON OR OFF, 
PRINTS OR SKIPS THE CORRESPONDING ERROR MESSAGE. THE ERROR MES- 
SAGES RESIDE ON RECORD NO. ERRECPOS ON PASCAL. THEY ALL HAVE THE FOL- 
LOWING FORMAT! 

WORD 1 1 LENGTH OF ACTUAL MESSAGE, 

WOROS 2..N! THE MESSAGE TEXT. 
THE TOTAL NUHBER OF MESSAGES (INCLUDING THE TITLE) IS = <MOD 32). 
PRTERR ASSUMES THAT PUT8 DOES NOT ALTER B5 OR 86. 



# 



SAVE35B6 3SS 


1 


PRTERR BSS 


1 


SKIPF TO ERROR 


MESSAGE RECORD! 


SA3 


RECPOS 


SX3 


X3-ERRECPOS 


BX3 


-X3 


RJ 


SKIPF 






READ IN ERROR MESSAGES! 



• 
• 



SET 



SX6 
SAb 
SA6 
SXi 
SX6 
SA1 
RJ 

ERROR BIT 
SA1 
SX6 

BX6 



ERRLIM 

PASCAL+2 

PASCAL+3 

3RCIO 

128 

PASCAL 

PPREQ 



READ 



• 
• 



NUMBER G FOR TITLE* 
ERR8ITS 
Bi 
X6+X1 



PRINT ERROR MESSAGES I 

SA6 At 

SB5 Ai 

SB** ERRLIM 

XERRWORO SA1 85 

LX1 27 

S36 32 

X8IT LXO B6,Xi 

NG X0,PRTMSG 



XI 1= NEXT ERROR 8ITS WORD 



CURRENTLY RELEVANT BIT LEFTMOST 



# 



SKIP CURRENT ERROR MESSAGE, IF UNUSED* 
SA2 Bk 

SB<+ B<t+X2 

SB<4 BiH-81 

EQ PRTERR1 

SAVE REGISTERS AND PRINT ERROR MESSAGE* 



PRTMSG 



8X6 
SAb 
SX6 
LX6 
SXi 
3X6 
SA6 

SAi 
SB6 
S85 
SB5 



XMSSWORD SAI 
8X6 
SAI 
SA6 
SB7 
CALL 
SB6 
NZ 



XI 

35 

B5 

18 

86 

X6+X0 

SAVE8586 

B<+ 
XI 

3**+36 
B5+81 

35-36 

XI 

OUTFET+2 

XI 

OUTFET-1 

PUTS 

8 6 — S 1 

86,XMSGW0RD 



XI *= NUMBER OF MESSAGE WORDS 

85 »= (AODRESS OF LAST MESSAGE WORD) + 1 

XI *= NEXT MESSAGE WORD 

IN 



RESTORE AND UPDATE REGISTERS* 



SB4 
SAI 
S86 
AX1 
S85 
SAI 



B5 

SAVE8586 

XI 

18 

XI 

B5 



* 



ERROR BIT IS PROCESSED* 
PRTERRI S86 86-81 

NZ 86, MBIT 



ERROR 



IT WORD 


IS PROCESSED* 


SB5 


85+81 


Sb/ 


B5-t.RkL.Irt 


NZ 


B7,XERRW0RQ 


SX6 


OUTFET-12 


SA6 


OUTFET-2 


EQ 


PRTERR 



RESET POINTER 
PRTERR 
EJECT 
PROCEDURE LOAD AND EXECUTE PMDI 
UPON ENTRY, CSAVEX51 = ADDRESS WHERE ERROR OCCURRED, 

ISAVE85J = POINTER TO BASE OF LATEST DATA SEGMENT. 
USES ALL REGISTERS. EXPECTS 81 = 1 AND THAT CHAR ANO TEXT 00 NOT 
ALTER Bl OR B%. 





SAVE 65 


8SS 


1 




• 


SAVEX5 


BSS 


1 






CALLPMD 


BSS 


1 




• 












RETURN 


IF 86 
SAl 


NOT WITHIN FIELD 
F.LGTH 


LENGTH* 


# 




S37 
S87 
PL 


-36 
Xl+87 
B7, PMD.l 




• 




SXQ 

RJ 

£Q 


IMPPMD 

MESS 

CALLPMD 




• 












CHANGE 


THE OUTPUT FILE5S NAHE 


TO EOUTPUTSt 




PMD.l 


SAl 


I0NOG04-1 


XI 1= iOUTPUTE 


• 




8X6 

SA6 


XI 
OUTFET 




• 


READ THE PMD 


FILE INTO THE INPUT 8UFFER AND CHECK 




WHETHER END-OF-RECORD HAS 3EEh 


1 REACHEDI 






sxo 


3R0PE 




• 




SX6 
SAl 
RJ 


IkZB 

PMOFET 

PPREQ 


OPEN/REMIND FOR REA 


• 




SXy 
SAl 


3RCI0 
PMDFET 








SX6 


523 


REWIND 


• 




RJ 

S Xy 


PPREQ 
3RCI0 








SX6 


12B 


READ 


• 




RJ 


PPREQ 








SAl 


Al 


GET COOE/STATUS FOR 






LX1 


55 


EOR BIT LEFTMOST 


• 




NG 


X1,PM0.3 








SXQ 


NOPlHOMSG 








RJ 


MESS 




• 




EG. 


CALLPMD 






SKIPF 


PASCAL 


TO PMO ROUTINE* 




• 


PMO. 3 


SX6 


OUTBUF 








SA6 


PASCAL+2 


IN 






SA6 


PASCAL+3 


OUT 


• 
• 

• 




SAl 
SX3 
SX6 
SA6 

BX3 

ZR 

RJ 


RECPOS 

Xl-PMOPOS 

PMDPOSf 1 

Al 

-X3 

X3,*+l 

SKIPF 





• 
• 






CHECKING EOR BIT 









CALL LOADtXTS FOR PHD. EXEGUTEt 



SA<* 


LPJMPTA8 


Sa<; 


81 


SA1 


PMD 


RJ 


LOADEXTS 


SA1 


SAVE 35 


SA2 


SAVEX5 


SB5 


XI 


SB6 


X2 


SX3 


IN3UF-1 


SAi 


PMDFET+2 


SX6 


Xl-1 


CALL 


PMO 


SAI 


OUTFET 


su 


3RCIO 


SX6 


26B 


RJ 


PPREQ 


EQ 


CALLPMO 


EJECT 





LCAO POINT OF PMO 
EETRANSFER WORD== FOR PMO 



B5 = BASE ADDRESS OF LATEST DATA SEGMENT 

ADDRESS WHERE ERROR OCCURRED 

AOORESS OF FIRST ENTRY IN PMD TABLE - 1 

IN 

ADDRESS OF LAST WORD IN PMO TABLE 



m 



WRITER 



IOPAK 



(BY R. SCHILD) 



FOR RETURN ADDRESSES I 
RET2 BSS 1 
RETi BSS i 
RETO BSS 1 



• 



GETB 


MOVES POINT 


ER JQ NE 


NOTHING HAS 


YET 


BEEN RE 


IT IS CALLED 


BY 


GETC TO 


IF EOF IS REACHED (OR EO 


AND 


IF THE 


FILE 


SPEC IS 


REGS 


X0-X7 ARE USED 


GETB 


SA7 




RET2 




SAI 




B7 




NG 




X1,E0FE 




SXi 




XI 




SA3 




B7+3 




SA2 




B7+% 




8X0 




X3-X2 




ZR 




X0,G31 




1X2 




X2+M1 




SAh 




B7+5 




SX^+ 




x% 




3X* 




X2-X<» 




NZ 




X<*,G81 




SA2 




87+2 


GBl 


SX7 




X2 * 




SA7 




B7+4- 




SA7 




B7-1 


SB 2 


IXC* 




X3-X7 




NG 




XG,G33 




IXij 




X3-K1 




NG 




m,GBk 


SB 3 


SAI 




RET2 




SB7 




XI 




JP 




87 


GB<+ 


SAI 




B7+1 




SXO 




10308 




BX6 




X0*X1 




SAif 




B7 




LXit 




6 




AX* 




5* 



USEO 8Y GET8, PUTS 
USED BY GETC, PUTC, EOR 
USED BY OPEN, RESET, REWRITE, CLOSE, 
REAO, TEXT, WRITE 

XT BINARY INPUT RECORD, EXCEPT WHEN 
AD (IN = OUT), THEN POINTER IS NOT MOVED. 
GET NEXT WORO OF 10 PACKED CHARS. 
R FOR EINPUTE) , THE EOF BIT IN EFET IS SET, 
EXT, THE WRITE BIT IS ALSO SET. 



RR 



LRL 

IN 

OUT 

JUMP IF IN * OUT 
STEP OUT-PTR 
LIMIT 



JUMP IF OUT NOT= LIMIT 
OUT != FIRST 
*** NOTE! GETC USES THIS VALUE IN X7 »»»• 
OUT 

P 

IN - OUT 

RETURN IF IN < OUT 

(IN-OUT) - LRL 

JUMP IF IN-OUT < LRL 



# 



LFN, C/S 



X4 *= 23 8 FOR INPUT 

303 FOR ALL OTHER FILES 







I XC 


XQ-X4 




• 




PL 


X0,GB5 


JUMP IF EOF CR EOI 






S Xy 


3LCIO 








SX6 


12B 


READ CODE 


• 




RJ 

SAl 

sxo 


PPREQ 

Al 

360206 




• 




8Xu 


Xi*XG 








NZ 


X0,£RRN 


ERRORS 






SAl 


B7 




# 




SX1 


XI 


LRL 






SA3 


A3 


IN 






EQ 


G32 




• 












SET EOF BIT. IF 


" EXTEND FILE, 


SET WRITE 8IT. 




GB5 


SA4 


B7 




# 




AX4 


56 


CHECK SPEC (BIT 59 = 0) 






SX4 


X4-4 


EXT = 4 






SAl 


B7 


EOF, WRITE SITS 


• 




MXfi 


1 


EOF 






NZ 


X 4,386 


JUMP IF NOT EXT 






SXQ 


413 


EOF AND WRITE 


• 




LXO 


54 


INTO CORRECT POSITION 




G86 


BX6 


X1+X0 








SA6 


87 


SET 8IT(S) 


• 




EQ 
EJECT 


G33 


RETURN 




PUTS i 


WVES POINTER TO NEXT BINARY OUTPUT RECORD. 


• 


IT IS 


CALLED BY 


PUTC TO OUTPUT 


ONE WORD OF 10 PACKED CHARS. 




REGS 


XC-X7 ARE 


USED 




• 


PUTS 


SA7 

SAl 


RET2 
87 








SX1 


XI 


LRL 


• 




SA2 


87 + 3 


IN 






SA3 


87+% 


OUT 






1X2 


X2+X1 


STEP IN-PTR 


• 




SA4 


B7+5 








SX4 


X4 


LIMIT 






BX4 


X2-X4 




• 




NZ 


X4,PB1 


JUMP IF IN NOT= LIMIT 






SA2 


87+2 


IN 1= FIRST 




P31 


SX7 


X2 




• 




SA7 


87+3 


IN 






SA7 


87-1 


P 






1X4 


X3-X7 


OUT - IN 


• 




I Xy 


X1-X4 


LRL - (OUT-IN) 






NG 


X4,PB3 


JUMP IF OUT < IN 






PL 


X0,PB4 


JUMP IF (OUT-IN) < LRL 


# 


PS 2 


SAl 
SB7 


RET2 
XI 




* 




JP 


B7 


RETURN 


w 


P33 


SA4 


37+2 








SX4 


X4 


FIRST 


• 




1X6 


X0+X4 








SA4 


87+5 








SX4 


X4 


LIMIT 


• 




ixo 


X8-K4 


XS s LRL - AVAILABLE SPACE 






NG 


X8,PB2 


RETURN IF ENOUGH SPACE 


• 


P84 


SAl 

S Xy 


87+1 

3LCI0 


LFN 






SX6 


168 


WRITE CODE 






RJ 


PPREQ 




# 




SAl 


Al 


GET C/S 






SXii 


36Q00B 





m 
m 
m 
m 
m 



X0*X1 

XO,£RRN 
PB2 



BXy 

NZ 

fcU PB2 RETURN 

EJECT 
GETC MOVES POINTER TO NEXT INPUT CHAR. 
3UFFER IS USED IN REVERSE DIRECTION. (FIRST 
IF CHAR BUFFER IS USED UP, GETB IS CALLED 
USES X0-X7,AG 



IS AT B7-2) 





GETC 




SA7 


RET1 






• 






SA1 
SX2 

IXy 


B7-1 

87-11 

X2-X1 




XI 1= P-PTR 

X2 »= ADDR OF END OF BUFFER 


• 






ZR 
SX6 

SXy 


X0,GC2 

Xl-1 

XO+1 




JUMP IF END REACHED 
P t- P - 1 


• 


GCi 




SA3 

NZ 

ZR 


X6 

X3 , SCC 
X0,GC2 




TEST NEXT CHAR 

RETURN IF NOT EOL 

IF END REACHED, GET NEXT WORO 


• 






SX6 


X2 




P t= END OF BUFFER 




SCO 




SA6 

SA1 


87-1 
RET1 




STORE POINTER TO CURRENT CHAR 


# 






S87 
JP 


XI 

B7 






• 


SCQS 

GET 


NEW 


SX6 

EQ 

WORO 


B7-11 
GCO 




Xfc 1= ADDR OF LAST CHAR 


• 


GC2 




SAi 
SX7 
EQ 


87 

*+l 

GETB 






* 






SB7 


AO 








NOW 


X7 


= PTR TO 

SA1 


NEXT WORD 
37 






• 






NG 

SA2 
MXO 


X1,GCS0 
X7 

5k 




RETURN IF EOF 
X2 1= WORD 


• 






3X6 

SA6 
DUP 


-xa*x2 

B7-11 
9,3 




EXTRACT LAST CHAR 
STORE IT 


• 






LX2 
8X6 

SA6 


5k 
-X3*X2 

A6+1 






• 






SX6 


A6 




P »= ADDR OF FIRST WORD 




NOTE 


X-Q 


* 0, SIG 
SX2 


NIFYINSI 
87-11 


END NOT 


REACHED 

X2 *= ADOR OF END OF BUFFER 


• 






EQ 
EJECT 


GCI 








PJTC 


MOVES POINTER TO NEXT OUTPUT CHAR. IF BUFFER IS FULL, 


# 


IT 


IS 


PACKED AND PUTB IS 


CALLED 


TO OUTPUT IT. 




IF 


EOL 


HAS 8EEN 


STORED, 


CHARS UPTO EOL ARE PACKED AND 




OUTPUT 


VIA PUTS 


• 






• 


USES 


XO 


-X7,AG 










LINECTR 


BSS 


1 








PUTC 




SA7 


RET1 






• 






SA1 

SX£ 

1X8 


37-1 

87-2 
X1-X2 




XI 1= P-PTR 

X2 1= ADDR OF £NO OF SUFFER 


• 






SA3 

ZR 

ZR 


XI 
X3,PC3 

X0,PC1 




TEST LAST CHAR 

JUMP IF EOL 

JUMP IF END REACHED 


• 






SX6 


Xl+1 




P 1= P + 1 




PCO 




SAb 
SA1 


B7-1 

RET1 




STORE POINTER TO CURRENT CHAR 


# 






S87 
JP 


XI 
37 







<Q> 



• 



# 





CHAR 


8JFFER 


FULL 


, PACK AND 


STORE 


IN OUTPUT BUFFER 




• 


PCI 


SAl 
SA.J 
SA2 




B7+3 
07-11 
A3 + 1 




XI 1= IN-PTR 

FIRST SUFFER CHAR 
SECOND BUFFER CHAR 




• 




LX3 
BX6 
OUP 




6 
X2+X3 

6,3 








• 




SA2 
LX6 
BX6 




A2 + 1 

6 

X6+X2 








• 


+ 


SA6 
SAO 
SX7 




XI 
37 
* + l 








• 




EQ 
SB7 

SX6 




PUTS 
AO 

B7-11 




NEXT WORD 

P «= ADDRESS OF FIRST WORD 




• 




EQ 




PCG 










EOL. 


PACK CHAR 


BUFFER AND 


STORE 


IN OUTPUT BUFFER 






IF NECESSARY 


(N 


= 13.) , ADD 


ONE WORD OF ZEROES 




• 


PC 3 


SAO 
SB1 
SX6 




31 
XO+9 

BO 




SAVE 

COUNTER 1= N - 1 

INITIALIZE PACKED WORD 




• 




ZR 
SA2 




3i,PC5 
XI 




JUMP IF EOL ONLY CHAR 
A2 1= P 






PC it 


SA2 




A2-1 




NEXT BUFFER CHAR 




• 




3X6 
LX6 
SB! 




X6+X2 

5k 
Bl-1 




PACK 

ROOM FOR NEXT CHAR 

DECREASE COUNTER 




• 




NZ 




Bi,PC** 




LOOP IF NOT N-l CHARS 






N - 


1 CHARS 


HAVE 


NOW BEEN PACKED 


LEFTADJUSTED WITH ZERO FILL. 






NOW 


STORE WORD, 


TEST FOR TWO ZERO-BYTES AND STORE ADDITIONAL 




• 


WORD 


IF NEEDED. 












PC 5 


SB1 
SA2 




AO 
37*3 




RESTORE 

X2 1= IN-PTR 




• 




SA6 

SAO 
MXy 




X2 
B7 

*+8 




STORE WORD IN OUTPUT BUFFER 
MASK 




• 


+ 


3X3 

ZR 

SX7 




-xa*xe 

XQ,PC6 

*+l 




TEST FOR TWO ZEROES 

JUMP IF AODTL WORD NOT NEEDED 




• 




EQ 

S37 

SA2 




PUT8 

AO 

B7+3 




X2 1= IN-PTR 




# 
• 
# 


PC 6 


SX6 

SA6 

SX7 

EQ 

SB7 

SAl 

ZR 

SX6 

SA6 




BO 

X2 

* + l 

PUT8 

AO 

LINECTR 

X1,LINERR 

Xl-1 

Al 




ZEROES 

STORE ZEROES IN OUTPUT SUFFER 




• 




SX6 

EQ 




87-11 
PCO 




P t- ADDR OF FIRST WORD 
RETURN 








EJECT 










• 


EOR 


IS CALLED ONLY IF WRITE BIT 


SET, BY RESET, CLOSE AND POSYS. 


Z,3,h 




CHECKS CHAR 


BUFFER AND EMPTIES IT IF NECESSARY. 






WRITES EOR. 












• 


USES Afi»XQ- 


X4,X6,X7 








• 


EOR 


SA7 

SAl 

LXl 

NG 

SA2 

SX3 

IXU 




RETl 

B7 

k 

XI, E2 
87-1 

87-11 
X2-X3 




C/B 

CHECK CHAR/BIN . 

JUMP IF NOT CHAR FILE 

X2 i= P-PTR 

X3 «= ADDR OF START OF BUFFER 





m 









• 




ZR 


X0,£2 


JUMP IF EMPTY 




SX6 


BO 


INITIALIZE PACKED WORD 






SAh 


X2 


A** 1= P 




Ei.l 


SA<+ 


A^-i 


NEXT SUFFER CHAR 


• 




BX6 


X6+X<* 


PACK 






LX6 


5** 


ROOM FOR NEXT CHAR 






SXO 


Xti-1 


OECREASE COUNTER 


• 




NZ 


XG,£1.1 


JUMP IF NOT N CHARS 






SAh 


B7+3 


Xk *= IN 






SA6 


X<+ 


STORE WORD IN OUTPUT BUFFER 


• 




SA3 


B7 








Mxe 


hi 


MASK 






B Xy 


-X0*X6 


TEST FOR TWO ZEROES 


• 




ZR7 

£Q 
SB7 


XHE1.2 

PUTB 

AO 


JUMP IF AQDTL. WORD NOT NEEDED 


• 




SAif 
SX6 


B7+3 

BO 








SA6 


Xif 


STORE ZEROES IN OUTPUT BUFFER 


• 


£1.2 


SX7 

EQ 
SB7 


*+l 

PUTB 
AO 




• 


£2 


SAl 


B7+1 








SX6 


263 


WRITE EOR 






SXa 


3LCI0 




• 




RJ 
SAl 

SXO 


PPREQ 
Al 

363i38B 




• 




BXu 


xo*mi 








NZ 


X0,£RREOR 


ERRORS 






SAl 


RET1 




• 




S87 

JP 
EJECT 


XI 
B7 




• 


OPEN CALLS OPE- 


ROUTINE 






SETS 


OISP COOE 


FOR PRINT ANO PUNCH FILES 




INITIALIZES IN 


, OUT<» ANO P (AT 


87-1) 


• 


USES 


A£»Xfi»Xij 


X2,X*f, X6,X7 






OPEN 


SA7 


RETQ 








SAl 


87+2 


FIRST 


• 




SX6 


XI 








SA6 


Al 


CLEAR DEVICE TYPE ANO OISP. COOE 






SA6 


87+3 


IN 


• 




SA6 
SAl 
LXl 


B7*k- 
B7 


OUT 


• 




Mxe 


57 








B X»i 


-Xfl*Xl 


GET FILE SPEC BITS 






SX7 


k±8 


EOF ANO WRITE BITS 


• 




LX7 


5k 


INTO CORRECT POSITION 






SAl 


B7 


EFET 






SA6 


82 


SAVE 


• 




SB2 


Xfl+1 








JP 


*+8£ 


SPEC = 7 NOT ALLOWED 






EQ 


OINP 




• 




EQ 


OPRT 








EQ 


OOJT 


* 






EQ 


OPCH 




• 




EQ 


OEXT 






SPEC 


: = 6 NOT 


USED 






OSCR 


SX6 


106B 


OPEN WRITE, NO REWIND 


• 




BX7 


X7+X1 


SET EOF ANO WRITE BITS 




OP 


SA7 


B7 


STORE EFET WORD 


m 




SXu 


3L0PE 






SAl 


B7+1 








&> 


PPREQ 











S82 Afl 

W CALL SETPTRS 

SAi RETC 

SB7 XI 

• JP B7 

OOUT EQU OSCR 

• OEXT SX6 1068 OPEN WRITE, NO REWINO 

BX7 -X7*X1 CLEAR EOF ANO WRITE BITS 

EQ OP 

• OINP SX6 1023 OPEN READ, NO REWIND 

BX7 -X7*X1 CLEAR EOF AD KRITE BITS 

EQ OP 

• OPCH SAl 87+2 

MXu 1 

^ LXC 19 FET-SIZE - 6 

• BX6 X1+M0 

LXfi 9 DISP - 10B (PUNCH) 

3X6 X6+X0 

• SA6 Al 
SAl B7 
EQ OSCR 

• OPRT SAl 87+2 

MXL< 1 

_ LXi- 19 FET-SIZE = 6 

W 8X6 X1+X0 

LX3 11 DISP = 403 (PRINT) 

8X6 X6+XS 

• SA6 Al 
SAl 87 
EQ OSCR 

• EJECT 

SETPTRS IS CALLED BY OPEN , RESET , RE WRITE, ANO P0SYS.3 

SETPTRS SA7 RET1 

• SAl 87+2 FIRST 
SX6 XI 

SA6 87+3 IN 1= FIRST 

• SA6 B7+4 OUT 1= FIRST 

SAb B7-1 P 1= IN (FOR BINARY FILES) 

SAl 87 C/8 

• LXi k TEST IF CHAR FILE 
NG X1,SETP1 RETURN IF NOT CHAR 
SX6 B7-11 

• SA6 B7-1 P 1= AODR OF FIRST CHAR 
SETP1 SAl RET1 

SB7 XI 

• JP B7 
EJECT 

RESET (FOR INPUT) CALLS EOR IF WRITE BIT SET. 
m RESETS FILE, CLEARS EOF AND WRITE BITS, SETS POINTERS 

BY CALLING SETPTRS. 
USES A0,X0-X%,X6,X7 

• SAVEB7 8SS 1 USED ALSO 8Y CLOSE 
RESET SA7 RETO 

SAl 87 

• LXI 5 TEST WRITE BIT 
PL XI, Rl JUHP IF REAO 
SX6 87 

• SA6 SAVEB7 
CALL EOR 
SAl SAVE87 

• SB7 XI 
Rl SAl B7 

SXO klB 

9 LXQ 5k 

BX.b "MI** CLEAR EOF ANO WRITE BITS 



# 



• 
# 






m 
m 



m 

m 



m 
m 



m 
m 



SA6 B7 
COMMON END FOR RESET ANO 

RE SXu 3LCIO 

SA1 B7+1 

SX6 52B 

RJ PPREQ 

SA1 Al 

SXO 3630 8 8 

BXG xi»xo 

NZ X0,ERRR 

SXO lOaflB 

BX6 -X0*X1 

SA6 Al 

CALL SETPTRS 

SA1 RETS 

SB7 Xi 

JP B7 

EJECT 
REWRITE (RESET FOR OUTPU 
RESETS FILE, SETS EOF AN 
BY CALLING SETPTRS. 
USES A2,XQ-X4,X6,X7 
REWRITE SA7 RETS 

SXO 418 

LXy 54 

SA1 B7 

BX6 XQ+X1 

LX1 i 

A XI 57 

ZR Xl,ERRO 

SAfe B7 

EQ RE- 

EJECT 
CLOSE CALLS EOR IF WRITE 
UNLOADS SCRATCH, PRINT, P 
USES X0,X1,X2,X4,X6»X7, 
CLOSE SA7 RETO 

# SA1 B7 
LX1 5 

PL Xi,CLl 

# SXb 87 
SA6 SAVEB7 
CALL EOR 

# SAi SAVEB7 
SB7 XI 

CL1 SAI B7 

# SX6 1323 
LX1 3 

PL X1,CL2 

# SX6 1728 
CL2 SAI B7+1 

sxy 3LCLO 

# RJ PPREQ 
SAI RETO 
SB7 XI 

# JP 37 
EJECT 

CAN BE CALLED BY 



REWRITE 



REWIND CODE 



ERRORS 



CLEAR BEGINNING-OF-INFO-BIT 



T) CHECKS FOR NON-IN-FILE. 
D WRITE BITS, SETS POINTERS 



# 
# 



UT 



# 
# 



EOF AND WRITE BITS 

CHECK FOR IN-FILE 
ATTEMPT TO WRITE ON IN-FILE 
SET EOF ANO WRITE BITS 
RESET FILE AND SET POINTERS 



BIT SET. 
UNCH FILES, CLOSES IN, OUT, EXT FILES 
AD 



TEST WRITE BIT 
JUMP IF READ 



CLOSE, NO REWIND (IN, OUT, EXT) 
TEST LOW BIT OF SPEC 

CLOSE UNLOAD (PRINT, PUNCH, SCRATCH) 



WEOR 
WEOR 



THE USER PROGRAM TO WRITE AN END-OF-RECORO 



SA7 
SAI 

SXii 

SX6 

RJ 
SAI 

SXO 

bxb 



RETO 
87+1 
3LCIO 

26B 

PPREQ 

Al 

3600SB 

xo»xi 



WRITE-EOR CODE 







NZ XO,£RRNi 


# 




SA1 RETO 






SB/' xi 






JP B7 


• 




EJECT 




READ 


(READS PASCAL NUM8ERS) 


• 








ENTRY 


CONDI 

X7 = RETURN ADDRESS 


• 




XI = ADDR OF VARIABLE 
B7 = TYPE 

= INTEGER 


# 




1 = REAL 



JUMP IF ERRORS 



(BY R.SCHILO) 



EXIT COND » 

X6 = VALUE (STORED AT ADDRESS XI) 

IF B7 = AN INTEGER MUST 3E READ 
IF B7 = 1 REAL OR INTEGER HAY BE READ. 
AN INTEGER WILL BE CONVERTED 



NEXTCH 


MACRO 






S37 


INFET-1 


+ 


SX7 


* + i 




EQ 


GETC 




SAl 


INFET-2 




SA1 


XI 




ENDM 




LOAOX 


MACRO 






SA*+ 


SVX6 




3X6 


Xh 




SA4 


SVX% 




SA5 


SVX5 




ENOM 




STOREX 


MACRO 






SA6 


SVX6 




BX6 


Xk 




SA6 


SVXit 




BX6 


X5 




SA6 


SVX5 




ENOM 




VARADDR 


BSS 


1 


VARTYPE 


BSS 


1 


READ 


SA7 


RETC 




SA2 


INFET-1 




NG 


X2,EOF£RR 




BX7 


XI 




SA7 


VARADDR 




SX7 


87 




SA7 


VARTYPE 




MXO 


kZ 




SX7 


81 




8X7 


-X0*X7 




LX7 


18 




SX1 


82 




8X1 


-XO*Xl 




BX7 


X7+X1 




SA7 


SAVE8182 




S82 


-1 




SAl 


INFET-2 




SAl 


XI 



JUMP IF ALREADY EOF 

SAVE ADOR OF VARIABLE 
SAVE TYPE 



INDICATE SIGN NOT YET READ 
XI »= INPUT* 



_ £Q 

• SKIP NEXTCH 

Sf\C 

NG 

• SKi ZR 

SB7 
ZR 

• SX1 
NG 
GE 

• SB7 
NG 
SB7 

• GT 
SB2 
EQ 

• NOSIGN S87 

GT 
GETNUM SX6 

• MX5 
SX4 

GN1 LX6 

• 1X1 
LX6 
1X6 

• BX1 
NZ 
STOREX 

• NEXTCH 
LOAOX 
SB7 

• ZR 
SX1 
NG 

• SB7 
NG 
S87 

• NZ 
DECIMAL POINT 

PX6 

• NX6 
SA5 

GN2 STOREX 

• NEXTCH 
LOAOX 
S37 

• ZR 
SX1 
NG 

• S37 
GT 
FX6 

• PX1 
FX6 
NX6 

• sx* 

EQ 
NOEX ZR 

• MX3 
EU 

EXPONENT PART 

• EX PIC PL 

PX6 
_ NX6 

• SA& 



SKi 

INFtT-1 

X2,ST0R 

XI, SKIP 

Xi-556 

87, SKIP 

Xl-27 

Xi f ERRRD 

B2, 80, NOSIGN 

Xl-10 

B7, GETNUM 

Xi-li 

B7,ERRRD 

-B7 

SKIP 

Xl-9 

B7,ERRR0 

BO 

12 

BO 

1 

X6+X1 

2 

X6+X1 

X5*X6 

Xl,£RROVFL 



X1-1RE 
B7,EXPlfi 
XI -IRC 
XI, FIN 
Xl-10 
B7,GN1 
X1-2Q 
37, FIN 
HAS 8EEN READ 
BC,M6 
80, X6 
CIO 



X1-1RE 

87,EXPlfl 

Xi-iRO 

XI, NOEX 

Xl-9 

B7,NOEX 

X6*X5 

BO, XI 

X6+X1 

813, X 6 

Xh-H 

GN2 

Xi+,£RRRD 

60 

GEX3 

X5,EXP11 

BC,«6 
80, X6 

cia 



JUMP IF EOF 
EOL 

BLANK 

LETTER 

JUMP IF SIGN ALREADY READ 

JUMP IF DIGIT 

SPEC CHAR, NOT SIGN 
= - , 1 = + 



SPEC CHAR 

X6 = Z i- 

MASK / X5 < * INTEGER 

Xk = SCALE 1= 



• 



Z *= Z*1Q + D 
Z > 21^8 



LETTER OR EOL 

DIGIT 

NOT . 



CHANGE INTEGER TO REAL 
10.0 / X5 > * REAL 



# 



EXP12 



LETTER OR DIGIT 

NOT DIGIT 
Z 1= Z*10.0 

Z 1= Z + D 

SCALE i= SCALE + 1 

NUMBER ENDS WITH . 
X3 = SIGNCSCALE) t= - 



JUMP IF REAL 

CHANGE INTEGER TO REAL 

ia.a / xs > a t real 



# 



EXP1 
EX Pi 



6ETE 

SEXi 



XP 



FINEX 



• 



GEX2 



ZR 

SBi 

STOREX 

NEXTCH 

SXi 

NG 

S87 

NG 

SBI 

ST 

NEXTCH 

SXl 

NG 

SB7 

GT 

BX3 

8X7 

SA7 

NEXTCH 

SA3 

SXi 

NG 

SB? 

GT 

LX3 

1X1 

LX3 

1X3 

EQ 

LOAOX 

NG 

IX<+ 

MX3 

EQ 

IX<* 

BX3 

AX3 

BX4- 



X4,ERRRD 
-i 



Xi-27 

X1,£RRR0 

Xi-iG 

B7,GETEXP 

Xi-ii 

81,ERRRD 

Xi-2 7 

Xi,ERRRO 

Xl-9 

B7,£RRR0 

Xi 

X3 

SVX3 

SVX3 

Xi-27 

XI, FINEX 

Xi-9 

B7, FINEX 

i 

X3+X1 

2 

X3+X1 

GEX1 



NUMBER ENDS WITH ,E 
Bi = SISN(EXP) t= + 



LETTER OR EOL AFTER E 

JUMP IF DIGIT 

SIGN(EXP) , a = - , -i » + 

SPEC CHAR AFTER E (NOT SIGN) 



LETTER OR EOL AFTER SIGN 

SPEC CHAR AFTER SIGN 
X3 = EXP 1= D 



• 
• 



LETTER OR EOL 
SPEC CHAR 

EXP I- EXP*10 + D 



# 
# 



AT G£X3« 



81,GEX2 

X3+X<t 

60 

GEX3 

X3-K^ 

Xk 

59 X3 t- 

X3-M<* SCALE 

X3 = SISN(SCALE) X4 

X2 = SIGN<ZI X6 = Z 



JUMP IF SIGN(EXP) = + 
SCALE t= EXP + SCALE 
X3 = SIGN (SCALE) 1= - 

SCALE 1= EXP - SCALE 



SIGN(SCALE) 
1= A8S (SCALE) 
= SCALE 
X5 = FF = iO.S 



• 



NOW COMPUTE ia+SCALE 





GEX3 


SAl 


# 




ZR 
SB7 




SEX<* 


LX7 


• 




PL 
FXl 




SEX5 


FX5 


# 




AX4 
NZ 




GEX6 


NG 


• 




RX6 

EQ 




GEX7 


RX6 


• 








FIN 


SA2 
NZ 


• 




SXi 
1X6 




FIN1 


PL 


• 




ZR 

PX6 

NX6 


# 


ST OR 


SAl 

SA6 



Ci.O 

Xf*,GEX6 

59 

B7,M^ 

X7,GEX5 

X1*M5 

X5*X5 

1 - 

X<t,SEX*t 

X3,GEX7 

X6*Mi 

FIN 

X6/X1 

VARTYPE 

B2,FINi 

BO 

X1-X6 

X5,FIN2 

X2,ST0R 

X6 

X6 

VAR4DDR 

Xi 



XI = FAC » = i.O 



TEST ODD(SCALE) 

JUMP IF EVEN 

FAC 1= FAC*FF 

FF != FF*FF 

SCALE 1= SCALE DIV 2 



Z »= Z*FAC 
Z i= Z/FAC 

JUMP IF SIGN(Z) = + 

Z i= -Z 

JUMP IF REAL NUMBER READ 
JUMP IF INTEGER EXPECTED 

CONVERT TO REAL 

STORE VALUE 



FIN2 

SVX3 
SVX4 
SVX5 
SYX6 

SAVEB182 

TXT. AOR 
TXT.CTR 
TXT.CH 
TXT. WO 
TE XT 



TXTi 






TXT2 



TXT3 



ERROR 



EOFERR 



£RRN 

ERSV 



SA1 
S32 
AX1 
SBi 
SA1 
SB7 
JP 

NZ 

EQ 

BSS 

BSS 

BSS 

BSS 

ass 

EJEC 

BSS 

BSS 

ass 

BSS 

SA7 

X7 = 

XI = 

BX6 

SA6 

SX6 

SA6 

SAi 

BX6 

NZ 

SAI 

SA2 

8X6 

SA6 

SX6 

SA6 

SX6 

SA6 

SX6 

SA6 

SAI 

Mxe 

LXi 
BX6 
ZR 
SA2 
SA6 
BX6 
SAb 
SB7 
SX7 
EQ 
SAI 
SB7 
JP 

EJEC 
EXITS 

SXS 
EQ 

S Xy 
SAI 
BX7 
SX2 
PL 



SAVE BIB 2 

XI 

ltt 

XI 

RET3 

XI 

B7 

X2,STOR 

ERRTYP 

1 

i 

1 

1 

i 



1 

1 

1 

1 

RET0 
RETURN ADDR. 
AOOR. OF FIRST TEXTWORD 

XI 

TXT. AOR 

B3 

TXT.CTR 

TXT.CTR 

XI 

X6,TXT2 

TXT. AOR 

XI 

X2 

TXT. WD 

A2+1 

TXT. ADR 

10 

TXT.CTR 

X6-1 

TXT.CTR 

TXT, WD 

5(t 

6 

-X0*Xi 

X6,TXT3 

OUTFET-2 

X2 

Xi 

TXT. WO 

OUTFET-i 

TXTI 

PUTC 

RETO 

XI 

B7 



RESTORE 






JUMP IF REAL EXPECTEO 
INTEGER EXPECTED, REAL REAO 



SET NEXT WORD 






RESET COUNTER 






RETURN IF EOL 



STORE SHIFTED WORD 



# 



ME OF 
ERSV 

MEN 

RET2 

Xi 

X1-BIG8UF 

X2,ABN. EX1 







SAI 


RETi 


# 




BX7 


Xi 






Sx<; 


Xl-tJl&t*UF 






PL 


X2, ABN.EXI 


• 




SAI 


RETO 






8X7 


Xi 






EQ 


ABN.EXi 


• 










ERRNi 


SAI 


RETG 






SX7 


Xi 


• 




sxo 


MEN 






EQ 


ABN.EXI 


• 


ERRR 


sxo 


MER 






SAi 


RETO 






SX7 


XI 


# 




EQ 


ABN.EXI 




ERROJT 


SXO 


MEOUT 


• 




SAi 


RET3 






SX7 


Xi 






EQ 


ABN.EXi 


* 










ERREOR 


sxo 


MEN 






SAI 


RETI 


• 




SX7 


XI 






EQ 


ABN.EXi 


• 


ERRTYP 


SAI 


RETS 






J Ay 


REAOMSG1 






3X7 


XI 


• 




EQ 


ABN.EXi 




ERRRO 


SXy 


READMSG2 


• 




SAi 


RETS 






3X7 


Xi 






EQ 


ABN.EXi 


• 


ERROVFL 


EQU 


ERRRD 




LINERR 


SX6 


-i 


• 




SA6 


LINECTR 






SX6 


87-ii 






SA6 


B7-i 


• 




SXQ 


LINEMSG 






EQ 


ERSV 






EJECT 





• 



WRITE FORMATS PASCAL OUTPUT 



(BY K. JENSEN AND R. SCHILO) 



WRITE 



EQU 






ENTRY CONOI 

Xi s VALUE TO BE PRINTED 

X2 = FIELOWIOTH 

<X3 = PLACES AFTER DECIMAL POINT, FOR FREAL ONLY) 



OK 



# 
# 



MACRO 




SA7 


RETO 


N6 


X2,8A0 


ZR 


X2,WRTFIN 


SAS 


LMAX 


1X5 


X2-X5 


PL 


X5,BAD 


ENDM 





RETURN IF FIELOWIOTH 



WROUT 



MACRO R 







SA4 


OUTFET-2 


# 




Si»R 


X4 






Sa? 


OuTFET-1 






CALL 


PUTC 


• 




ENOM 






FETCHOUT 


MACRO 


P 


• 




SA* 


OUTFET-2 






SA3 


SIGN+P 






BX6 


X3 


• 




SA6 


X4 






SB7 


OUTFET-1 






CALL 


PUTC 


• 




ENGM 






BLANKS 


MACRO 


K 


• 




LOCAL 


REPB 




R£P3 


SX6 


IR 






WROUT 


A6 


• 




S*K 


K-l 






NE 


K,R£P3 






ENDM 




• 










SSIGN 


MACRO 








LOCAL 


Ml 


• 




SA3 


NEGA 






S82 


B2+1 






SX7 


IR 


• 




ZR 


X3,M1 






SX7 


1R- 




Ml 


SA7 


SIGN+82 


# 




ENOM 






FINIS 


MACRO 




» 




SAtf 


RETO 






SB7 


Xk 






JP 


B7 


• 




ENDM 






BAO 


SA1 


8ARG 


• 




SX2 


10 






£Q 


ALF 


• 


UNOEF 


SA1 


NOEF 






EQ 


ALF 


m 


STAR 


SB3 


X2 






SX6 


IR 




REP 


WROUT 


A6 


m 




SX6 


IR* 






SB3 


B3-1 






GT 


83, REP 


• 




FINIS 






MOST 


SX6 


X6+33B 


• 




SA6 


SIGN+82 




RUED I 


BSS 


1 






SB2 


1 


• 




SA5 


CIO 




SNEXT 


PX3 


3fl,X*» 






FX3 


X3/X5 


• 




UX3 


B7,X3 






LX3 


B7,X3 






BX6 


X<+ 


• 




ZR 


X3,M0ST 






BX^+ 


X3 



.♦USES 87 



^ WROUT OESTROYS THE X REGISTERS 



(♦B2INO. OF DIGITS AND INDEX TO STORAGE 



X3<-X*» DIV II 



.♦STORE NOW, FOR X3 IS DESTROYED BELOW 



# 





LX3 


1 




1X6 


X6-X3 




LXJ 


2 




1X6 


X6-X3 




sxs 


X6+338 




SA6 


SIGN+82 




S62 


B2 + 1 




EQ 


SNEXT 


CO NT 


ZR 


X<+,PTZERO 




FX4 


X4/X5 


BISECT 


BSS 


1 



• 



SGL 



SCL1 



SCL2 



• 



N£G 



.♦X6<-X^-X3*i0 (OLD X4> 



FILL! 



BX« 


Xi 


AXO 


59 


8X1 


XO-X1 


uxo 


B7,X1 


sxo 


87 


PXO 


30, XO 


SA3 


L0G2 


fxo 


X0*X3 


UX6 


B7,X0 


LX6 


37, X6 


PL 


X6,*+l 


SX6 


X6-1 


SX6 


X6 + i% 


sxo 


X6 


AXO 


59 


BX6 


XQ-X6 


BX3 


X6 


SAi+ 


CI. A 


ZR 


X3,SGL2 


SA5 


Gifl 


SB7 


59 


LX7 


87, X3 


PL 


X7,SCLi 


FXh 


X4*X5 


FX5 


X5*X5 


AX3 


1 


NZ 


X3,SCL 


NG 


X0,NEG 


SA5 


CiO 


FX4 


Xi/X% 


1X3 


X4-X5 


NG 


X3,C0NT 


FX4 


X%/X5 


SX6 


X6 + 1 


EQ 


CGNT 


FX<+ 


Xl*Xi+ 


SAS 


C1C 


1X3 


X%-X5 


NG 


X3,CONT 


FX*» 


X4/X5 


SX6 


X6-1 


NZ 


X6,C0NT 


sxo 


BO 


EQ 


CONT 


SX6 


X3 + 1 


SA6 


SIGN 



XltVALUE. OUTI 



» 
• 



■•INI 
& 

& 
i* 
& 
& 
i* 



^Xi=A8S(Xi) 



XOtSIGN OF S 

XilABS<VALUE) 

X2 I UNALTERED, =FIELO L. 

X3 1 USED, BUT NO* FREE 

XMABSC. FRACTIONAL PARTI 

X5IUSED,BUT NOW FREE 

X6lS,Xi=X4*iatS+l 

X7 I USED, BUT NOW FREE 



• 







SX6 


2 


# 


FILL 


8SS 


1 






sacs 


B? 






SA3 


P+B7 


• 




FX<+ 


X4*X3 






SA3 


HALF 






FXk 


X4 + X3 


• 




UXk 


87 , X<+ 






LXi* 


B7,X<* 






RJ 


RUEDI 


• 




SX6 


1 






EQ 


B2, 83, FILL 


» 




SA3 


SIGN-1 






SX6 


X3-458 






SA3 


SIGN 


m 




ZR 


X6,FILL1 






SX3 


X3-2 






PL 


X3,FILL1 


• 




SX6 


1R + 






SA6 


SIGN-1 






EQ 


FILL1 


• 










PTZERO 


SB3 


X2-1 






ZR 


B3,PTZ1 


• 




BLANKS 


83 




PTZ1 


SX6 


338 






WROUT 


A6 


• 




FINIS 






NOE 


SX6 


IRE 


• 




SA3 


SIGN-1 






SXQ 


X3-453 






ZR 


XG,NOEl 


# 




SX6 


1R- 






EQ 


NOE1 




PTEXPO 


SA1 


SIGN 


• 




SX3 


100 






1X3 


X1-X3 






PL 


X3,N0£ 


• 




SX6 


IRE 






WROUT 


A6 






SA3 


SIGN-1 


• 




8X6 


X3 




NO El 


WROUT 


A6 






SAi* 


SIGN 


• 




SX3 


x%-io 






PL 


X3, ASINT 






SX6 


333 


• 




WROUT 


A6 






SA3 


SIGN 






SX6 


X3+338 


# 




WROUT 
FINIS 


A6 




ASINT 


RJ 


RUEOI 


• 


AGAIN 


FETCHOUT 82 






SB2 


B2-1 






NE 


82, AGAIN 


• 




FINIS 






CHAR 


OK 




* 




3X6 


XI 




C3EGIN 


SB3 


X2-1 






EQ 


83, CHI 


• 




SA6 


SIGN 






BLANKS 


83 



.♦SAVE a 
(♦X3l = 10t87 
,»XM = X%*1G*87 

.♦ADO 1/2 TO ACCOMPLISH THE ROUND 



.♦STORE X*» IN PLACES SIGN+1 TO SIGN+82 

.♦ELSE W£,VE ROUNOED ALL 9,S 
WHENCE MUST INC EXPONENT 



f»=a = 



.♦FETCH EXPO 



i»=E = 



.♦WRITE =+= OR =-= 
.♦FETCH EXPO AGAIN 
.♦JUMP IF EXPO >1C 
.♦TREAT AS INTEGER 
•»=Q = 

.♦WRITE AS £*Q* OR E-QX 
.♦FETCH EXPO AGAIN 
f=OIGIT= 



.♦MUST STORE FOR BLANKS DESTROYS ALL X-REG. 







FETCHOUT BO 


# 




FINIS 






Cril 


wRGUT 
FINIS 


A6 


• 










ALF 


OK 








SB3 


X2-10 


# 




SB2 


X2 






LE 


83, POUT 






SB2 


10 


• 


POUT 


SB7 


82 






mxo 


5k 




OUT1 


LXl 


6 


• 




8X6 


-XO*Xi 






SA6 


SIGN+87 






SB7 


B7-1 


• 




NE 


B7,0UT1 






LE 


B3,ALF1 






BLANKS 


33 


# 


ALF1 


FETCHOUT B2 






SB2 


B2-1 






NE 


B2,ALF1 


• 




FINIS 






80 01 


OK 




m 




S83 


X2-5 






GT 


83, BOOLI 






SX6 


1RT 


m 




NZ 


X1,C3£GIN 






SX6 


1RF 






EQ 


C3EGIN 


m 


BOOLi 


SA<* 


TORF 






SB2 


5 






NZ 


XI, BOOL 2 






LX** 


30 




30QL2 


3X1 


Xk 






EQ 


POUT 




INTGR 


OK 








ZR 


X1,PTIER0 






S83 


X2 






BX<+ 


XI 






AX* 


k& 






NZ 


Xtf,UNDEF 






3Xi* 


X4-X1 






RJ 


RUE 01 






PL 


XI, 11 






SX7 


1R- 






SB2 


B2+1 






SA7 


SIGN+32 




11 


S83 


B3-B2 






LE 


83, PNEXT 






BLANKS 


B3 




PNEXT 


FETCHOUT 82 






S32 


82-1 






GT 


82, PNEXT 






FINIS 




m 


FREAL 


SA7 


RETQ 






NG 


X3,3A0 






SA5 


FMAX 






1X5 


X3-X5 






8B3 


X8,3AD 






JP 


**2 



i»nAPPtNS WHEN X2=l 



.♦IF 83>0,B3*N0. OF 8LKS. 
.♦SAVE 

.♦B2 = N0 OF CHARS TO 8E OUTPUT 
(•87 = IN0EX TO FILL 



<*IF X2<6,WILL WRITE =T= OR =F = 
i»IF >0,WILL WRITE THE WHOLE WORD 

«*=T = 

r»IF X1=TRUE 

(*=F = 

.♦XM = TRUEFALSEE 

-WANT THE FIRST FIVE CHAR. 

-JUMP IF TRUE 

-XM EFALSE TRUEE 

-WRITE FIRST 82 CHAR OF XI, PRECEDED 8¥ 83 BLK 






-IS XI TOO LARGE 
-X%t=A3S<Xl) 
cUSES X3,X<*,X7,B2,B7 

-£-= 

-82=N0, OF SPACES REQUIRED 

-STOREE-E 

-83=N0. OF PRECEDING BLANKS 

-EXPAND FIELD LENGTH 



m 
m 
m 

# 



EREAL 



SA7 



RET? 







SB3 


-i 


• 


REAL 


NG 


X2,3AD 






ZR 


x2,wRTFlN 






SA5 


LMAX 


• 




1X5 


X2-X5 






PL 


X5,3AQ 






OR 


Xi,UNOEF 


• 




ID 


XljUNOEF 






NXl 


B8,Xi 






ZR 


Xl,PTZERO 


# 




SB7 


X2-9 






LT 


83, REi 






SB7 


X2-3 


• 




S87 


B7-B3 




REi 


LT 


B7, STAR 






SX6 


BO 


# 




PL 


XI , R2 






SX6 


1 




R2 


SA6 


NEGA 


# 




RJ 


BISECT 






SA6 


SIGN 






SX6 


1R- 


m 




NG 


X0,R3 






SX6 


1R + 




R3 


SA6 


SIGN-i 


• 




GE 


33, FFORHAT 






SB7 


X2-7 


• 




sxa 


B7-15 






NG 


X0,R4 






S37 


14 


• 


Hk 


RJ 


FILL 


• 




SSIGN 








SB3 


B3+6 






SB3 


-B3 






SB3 


X 2 4-83 






SA6 


NEGA 






BLANKS 


33 






FETCHOUT B2 






SB2 


B2-1 






FETCHOUT 82 






SX6 


IR. 






WROUT 


A6 






SA3 


NEGA 






SS3 


X3 




R6 


S82 


B2-1 






FETCHOUT B2 






GT 


32,33»R6 






EQ 


PTEXPO 




CHECK 


MACRO 








SB3 


X2 






S33 


AG-33 






GT 


83, STAR 






ENOM 






FFORHAT 


SXb 


83 






SA6 


FFSPEC 






SA3 


SIGN-i 






SX3 


X3-^58 






SA1 


SIGN 






ZR 


X3,Fi 






BXi 


-XI 




Fl 


sxs 


XI- Ik 



RETURN IF FlhLUWlOTH 



.♦CHECKS EFORMAT, BEGINS CHECK ON FFORHAT 



fSTORE A8S(£XP0) 

fIF EXPO IS NEG, JUMP 
(♦=■»•= 

.♦STORE =+E ORi-r 
.♦ELSE BEGIN EFORMAT 
.»87=Q = NQ. OF DIGITS TO BE OUTPUT 
-SIGN+37 ->TO MOST SIG. DIGIT 

.♦MAX. NO. OF DIGITS = Ik 

<*Xkt ABS<FRACTIONAL PART) 871Q 

.♦OUT! B3 = Q, DIGITS STORED FROM SIGN+1 - SISN*2 

r»X6=2 IF ROUNDEO 9=S, OTHERWISE =1 

r»X3=0 IF VALUE>0,=1 IF VALUE <Q 

.♦+-X.X XE+-XX .83 DIGITS, 6 SPECIAL CHR. 

f» 

,*33=N0. OF PRECEOING BLKS. 

i» SAVE POINTER TO LEAST SIG. DIGIT 

(♦WRITES SIGN INDICATOR 

.♦WRITES MOST SIG. DIGIT 

(♦E.E 

«♦ FETCH POINTER 

i»33 POINTS TO LEAST SIG. DIGIT 



.♦REQUIRED AMOUNT-FIELD LENGTH 
.♦FIELD LENGTH TOO SMALL 



.♦SAVE FFORHAT SPEF. 
.♦FETCH SIGN OF EXPO 
fX3=3 IF EXPO >0,*i OTHERWISE 



.♦Xl^SIGNEO EXPO 







PL 


X0,STAR 


• 




SB7 


X1 + B3 






Sd/ 


B7 + 1 






SB2 


37-i^ 


• 




LT 


B2,F2 






SB7 


Ik 




F2 


NZ 


X3,F7 


• 


A8S(VALUE)>1* 








SA« 


B7 + 2 






EQ 


B3,Fi» 


• 




SAii 


AO+1 




F3 


L£ 


B2,Fi» 






SAG 


A0 + B2 


# 


F<+ 


CHECK 








SX6 


32-i 






SA6 


SAVEB2 


• 




RJ 


FILL 






SXu 


X6-1 






ZR 


XC,F5 


• 




SAO 
CHECK 


AO+1 




F5 


SSIGN 




• 




SB3 


Afi-1 






SAO 


X2 






SB3 


AQ-B3 


• 




BLANKS 


B3 






SA3 


FFSPEC 






S83 


X3 


• 




SA«+ 


SAVEB2 






NG 


Xk,Fb 






S87 


X^+l 


• 




SB3 


B3-B7 




F6 


FETCHOUT 82 






SB2 


32-1 


• 




GT 


82,83,F6 






EQ 


B3,WREND2 






SX6 


IR. 


• 




WROUT 


A6 




WRENOi 


FETCHOUT 82 






S82 


B2-1 


• 


MR END 


GT 


B2,WRENDi 






SA3 


SAVE 82 






NG 


X3,WREND2 


• 




SB3 


X3 + 1 






BLANKS 


B3 




WREN02 


FINIS 




• 


ASSCVALUEXil 






F7 


NE 


B3,F10 






LT 


B7,PTZERO 


• 




RJ 


FILL 






SA3 


SIGN+1 






SX3 


X3-338 


• 




ZR 


X3,PTZER0 






S83 


X2-2 






BLANKS 


83 


• 




SX6 


IR 






SA3 


NEGA 






ZR 


X3,F8 


• 




SX6 


1R- 




F8 


WROUT 


A6 






SX6 


3%B 


• 




WROUT 


A6 






FINIS 




• 


Flfl 


SAO 
CHECK 


B3 + <+ 






SX6 


82-i 



«»IS NO. TOO LARGE 

i»1F PGS,B2=N0. OF TRAILING 8LKS> 
.♦IF POS,B2=NO. OF TRAILING BLANKS 

.♦MAX. INFO = 1^ DIGITS 
.♦JUMP IF EXPO <0 

<•= X— x = 

«•= X— X.X— Xr 

&= X— X.X--X r 9A0-NO, OF C«AR. REQUIRED 
.♦IS THERE ENOUGH SPACE 
.♦SAVE NO. OF TRAILING BLKS 

.♦B2 = IND£X.B3 = Q,X6=1 OR 2 

.♦X0=i IF ROUNDED .=S,-0 OTHERWISE 

•♦REQUIRES ONE MORE SPACE 

.♦STORES THE SIGN INDICATOR 
.♦B3=N0. OF INFO CHAR 

eNO. OF PRECEEDITG 8LKS 

.♦FETCH F-SPEF=NO. OF DIGITS AFTER THE =.= 

.♦FETCH NO. OF TRAILING BLANKS 

.♦ADD IN CORRECTION 



.♦WRITES DIGITS FOR E. 
.♦EXIT IF F-SPEF *G 

!• = • = 






.♦FETCH NO OF TRAILING BLANKS 
fADD IN CORRECTION 



• 



.♦WRITE AS AN INTEGER 






i» = X.<83>= AO-SPACE REQUIREMENT 







SA6 


SAVEB2 


# 




GE 


B7,Fil 






SA3 


hPSPEC 






SX6 


X3 + i 


• 




SA6 


SIGN 






EQ 


PASS 




Fll 


RJ 


FILL 


• 


PASS 


SB3 


AC-1 






SAU 


X2 






S33 


A0-B3 


• 




BLANKS 


B3 






SA3 


NEGA 






SX6 


iR 


• 




ZR 


X3,F12 






SXb 


1R- 




F12 


WROUT 


A6 


• 




SX6 


33 3 






SA3 


SIGN 






NZ 


X3,F13 


# 




SX6 


343 






SB2 


B2-1 




F13 


WROUT 


A6 


• 




SX6 


IR. 






WROUT 


Afc 






SA3 


SIGN 


# 




SB3 


X3-1 




Fit* 


LE 


83,WR£N0 






SX6 


338 


• 




WROUT 


A6 






S83 


B3-1 






EQ 


Fl^t 


# 










WRTFIN 


EQU 


WREND2 


* 


WRITEOCT 


OK 








SB1 


1 






BX6 


XI 






SA6 


SIGN 






S82 


X2 






LXfi 


31, X 2 






SB2 


X3+B2 






SB3 


X2-20 






LE 


B 3, NOCT 






BLANKS 


83 






SA1 


SIGN 






SB2 


&e 




NOCT 


SB2 


82-3 






AX1 


82, XI 






MXO 


57 






8X0 


-Xfl*Xl 






SX6 


X0+33B 






WROUT 


A& 






SA1 


SIGN 






GT 


B2,NOCT 






FINIS 






TORF 


OATA 


LE TRUEFALSE 




BARS 


DATA 


L= <3AD ARG> 




NOEF 


DATA 


L= <UNDEF> 




HALF 


DATA 


0.5 




LMAX 


DATA 


137 




FtfAX 


DATA 


133 




LOG 2 


DATA 


0.30193 




Cl.Q 


DATA 


1.0 



.♦SAVE NO. OF TRAILING 8LKS - 1 
cELSE VALUE =0 TO SPEF. ACCURACY 



r»32->M0ST SIG. DIGIT 



t» = = 

.♦OUTPUTS SIGN INOICATOR 
i»=0 = 



r* = i = 

fWRITE LEADING DIGIT, OR 1 

.♦WRITE =.= 
fA8S(EXP0) 
(♦33=N0. OF ZEROS AFTER THE =,: 






.♦SAVE VALUE 
& 0<X2<136 

t» <- 

i»B2l = 3*X2 
-IF >1 THEN 



IS NO OF PRECEDING BLKS. 



i* -> 



# 



A 


CIO 


DATA 


1C 


.C 


w 


p 


L)Aj A 


1. 


utu 






DATA 


1. 


QE1 


# 




DATA 


1. 


OE2 






DATA 


1. 


OE3 






DATA 


1. 


GE<* 


• 




DATA 


1, 


0E5 






DATA 


1. 


OE6 






DATA 


1. 


0E7 


• 




DATA 


1. 


0E8 






DATA 


1. 


OE9 






DATA 


1, 


OEIO 


• 




DATA 


1, 


OEli 






DATA 


1. 


QE12 






DATA 


i. 


QE13 


• 




DATA 


i« 


OE14 




NEGA 


BSS 


2 






SIGN 


ass 


17 


» 


• 


SAVEB2 


8SS 


1 






FFSPEC 


BSS 


1 





• 



END OF WRITE PROCEDURE 



EJECT 
POSYS.l (BEFORE LOADING OF FIRST OVERLAY) 



UPON ENTRY, AG CONTAINS THE FIELD LENGTH, WHICH IS > 4030B. 



# 
• 



POSYS.l S31 



31 IS USED AS A CONSTANT 





ACTIVATE RPV» 








SAi 


RPVREQ 


• 




BX6 


XI 






SA6 


Bl 






WAIT 


1 


• 


TRANSFER PARAHETER INFORMA 






SB2 


Bl+81 






SAI 


B2 


• 


PARI 


ZR 


XI, PAR** 






SA2 


PARA MS 




PAR2 


BXO 


X1-X2 


• 




ZR 


X0,PAR3 






SA2 


A2+B2 






NZ 


X2,PAR2 


• 










ILLEGAL KEYWORDS 




PARERR1 


SXC 


ERRMSG1 


• 




RJ 


MESS 






£Q 


ABN. EX3 


• 


LEGAL 


KEYWORD 


FOUNOI 




PAR3 


SA3 


A2+81 






NZ 


X3,PARERR2 


• 




SA2 


Al+81 






8X6 


X2 






SA6 


A3 


• 




SAI 


A 1+2 






EQ 


PARI 






# 



LOAD PARAHETER VALUE 
STORE PARAMETER VALUE 



CURRENT KEYWORD HAS ALREADY BEEN USEDt 

PARERR2 SXy ERRMSG2 



RJ 

EQ 



MESS 
A8N.EX3 



CHECK WHETHER ALL KEYWORDS AND PARAMETERS HAVE BEEN TAKEN CARE OF* 



PARI* 



OPEN 



• 

# 
• 



SX1 
SA2 
SX2 
8 XU 
NZ 

PASCALI 
SAl 

SX6 

SXQ 
RJ 



A1-B2 

6<+8 

X2 

X1-X2 

X0,PARERR1 



PASCAL 
1023 
3 ROPE 

PPREQ 



NUMBER OF KEYWORDS AND PARAMETERS 



OPEN FOR READ 



IF [LOADPAR] t Q WE OPEN THE LOAD FILE, SKIPF PASCAL BY 2, 
SET B5 * = DPAR - PPAR ANO Al/Xl * = LOADFILE FET ADDRESS. 
OTHERWISE WE SET 85 * = AND Al/Xl * = PASCAL FET ADORESS. 
85 RETAINS ITS VALUE THOUGHOUT POSYS.l 



* * * * * * 



******* 



SA2 


LOADPAR 


SAl 


PASCAL 


S85 





ZR 


X2,P0S1.L 


SX3 


2 


RJ 


SKIPF 


sx« 


3ROPE 


SB5 


DPAR-PPAR 


BX6 


X2 


SA6 


LOADFILE 


SAl 


A6 


SX6 


1023 


RJ 


PPREQ 



STORE LFN 



OPEN FOR READ 



OR OF LOADFILE. 
BINARY 



REAO THE HEADER1 

AT THIS POINT, Al/Xl = FET OF PASCAL 
POSi.LO SX6 12B READ 

SXu 3RCI0 

RJ PPREQ (IN - OUT = HEAOER) 

IF B5 t Q WE CHECK THE HEADER! 





ZR 
SAl 

SA2 

ixa 

sxa 

ZR 




B5, POSl.Ll 
L0A0FILE + 2 
Al+31 
X1-X2 

XO-ENTRYPT- 
XO, POSl.Ll 


IN 
OUT 

•1+OATE XO - L 


3AD HEAOER 
SXo 
RJ 
EQ 


READ* 

LOADMSS 

MESS 

ABN.EX3 






CHECK 
POSl.Ll 


WHETHER 
SA5 
SX6 
1X0 
PL 


THE FIELD LENGTH 
REQRDFL 
AO 

X6-X5 
XO,POS1.L2 


IS SUFFICIENT* 
NECESSARY FL 
ACTUAL FL 


FIELD 


LENGTH 

SB2 
RJ 

SA6 

SXO 
RJ 

EQ 


TOO SHALL* 
5 

BIN.DISP 
ERRMSG5+3 
ERRHSG5 
MESS 
ABN.EX3 







STORE FIELD LENGTH. CORRECT FET LIMITS, 
P0S1.L2 SAt> F.Lt»TH 

SA6 PASCAL*** 

SA6 PASCLGO+4 

SAb LOAQFILE+4 ALSO KEEPFET^ 



SET £IC0 1. ISSUE THE DATE MESSAGE. 







SA1 


OATE 






BX6 


XI 


• 




ZR 


B5,POSl.L3 






SA6 


DATEMSG2+1 






sxa 


DATEMSG2 


• 




£Q 


POSl.L^ 




POS1.L3 


SA6 


DATEMSG1+2 






SXQ 


DATEHSG1 


# 


POSl.L^ 


SX6 


BIG8UF 






SA6 


ICO 






RJ 


MESS 


• 










ENQUIRE WHETHER 


ONE OF THE P OR 




ALTER 


THE INPUT 


FET ACCORDINGLY 


• 




SAi 


PPAR+B5 






SA2 


I0N030 






SA3 


INFET-i 


• 




MXy 


1 






Lxy 


52 






ZR 


Xl,P0Si.L5 


• 




BX2 


X2-X1 






8X6 


XQ+X3 






ZR 


X2,POSi.L5A 


• 




EQ 


POS1.L6 




P0S1.L5 


3X1 


X2 




P0S1.L5A 


8X6 


-XQ*X3 


• 


P0S1.L6 


SA6 


A3 






BX6 


XI 






SA6 


A 3+81 


• 


OPEN TH 


E SPECIFIED FILE 






SB7 


A3 






CALL 


OPEN 


• 










OPEN THE OUTPUT 


FILE. 






SAI 


LPAR+35 


• 




NZ 


Xl,POSl.L7 







SAI 


LPAR+35 


• 




NZ 


X1,P0S1.L7 






SAI 


IONOGO+l 






BX6 


XI 


• 




5A6 


LPAR+B5 




IF COPTPAR3 


= =FC* = AND B5 




P0S1.L7 


NZ 


B5,P0Si.L8 


• 




SA2 


OPTPAR 






ZR 


X2,POSi.L8 






MXO 


18 


• 




8X0 


X2*K0 






LXu 


13 






SXS 


XG-3RFC* 


m 




NZ 


XQ,P0S1.L8 






SAI 


FQCWAHE 






SX6 


81 


• 




SA6 


FQCFILFL 




POS1.L3 


SB7 


OUTFET-1 






BX6 


XI 


• 




SA6 


37 + 31 






CALL 


OPEN 


# 


CONVERT AND 


SAVE THE LINE 




P0S1.L9 


SAI 


LLPAR 






# 



D INPUT OPTIONS IS USED. 
AND OPEN THE SPECIFIEO FILE« 
XI 1= NAME OF P OR FILE 
X2 t= =INPUT = 



JUMP IF NO NAME SPECIFIED 

MASK t* 3flB 
JUMP IF =INPUT= 

NAME 1= =INPUT= 
MASK t= 2flB 
STORE MASK 

PUT NAME IN FET 






XI *= ZERO OR NAME OF L OR OF R FILE 

XI 1= iOUTPUTE 

STORE =OJTPUT= IF NO NAME SPECIFIED 
THEN LISTING GOES ON FQCFILE* 
IGNORE OPT IF tLOADPAR] t 



m 
m 



IF COPTPAR] = =FC*= THEN 

BEGIN XI »= EFQCFILES . , 

FQCFILFL 1= l 
END 



STORE OUTPUT FILEES NAME IN FET 



# 



LIMIT 



PARAMETER* 
LINE LI Mir 



• 






SX6 


ioas 


DEFAULT 






ZR 


Xl,P0Sl.Li3 




. t 






MXO 


5k 




• 






SX6 
EQ 


30 
P0S1.L12 






POSl 


,Li*3 


sxo 


ERRMSG^ 




• 






RJ 
EQ 


MESS 
A8N.EX3 






POSI 


.Lll 


SX3 


X2-1R+ 




• 






PL 
SX2 


X3,POS1.L10 
X2-1RC 


CHECK F 


i- 






NS 


X2,POSi.L19 


CHECK F 


1: • 






LX5 
LX6 

1X6 


81, X 6 

3 

X6+X5 




i 1 • 






1X6 


X6+X2 






POSi 


,L12 


LXl 

BX2 


6 
-XQ*X1 




• 






NZ 


X2, POSi. Lll 





VALUE 



DIGIT 



DIGIT 



P0S1.L13 SA6 



LLPAR 



• 



IF B5 = REWIND PASCLGO (PASCLGO MIGHT ALREADY 
ELINECTRJ 1= -1, OTHERWISE SET CLINECTR1 * = X6. 
UPDATE RECPOS. LOAD AND EXECUTEI 



EXIST) AND SET 



POSl.Llit 



POS1.L15 



P0S1.L16 



POSYS.2 



NZ 
SA1 
SX6 
SXti 
RU 
SX6 
SA6 
SA1 
EQ 
SA6 
SAi 
RJ 
SX6 
SB6 
NZ 
SB3 
SA2 
ZR 
SA<+ 
SAi 
RJ 
SB2 
RJ 

EJECT 
(AFTER 



B5,P0S1.L1<* 

PASCLGO 

529 

3RCI0 

PPREQ 

-1 

LINECTR 

PASCAL 

POSI. LI 5 

LINECTR 

LOAOFILE 

LOAD 

3 

aicpos 

B5,*+l 

BO 

EXTFLAGS 

X2,P0Si.L16 

LIHCODE 

EXTVECT 

LOAOEXTS 

BO 

GO 



REWIND 



FOR tEXECFLAGl 



NO FREQUENCY COUNTS FOR COHPILER 



EXECUTION OF FIRST OVERLAY) 



• 
• 



EMPTY THE OUTPUT BUFFERl 
POSYS.2 SB7 OUTFET-i 

CALL EOR 



TERMINATE IF 
SAI 
ZR 

SXO 

RJ 

EQ 



LOADPAR t Qt 
LOADPAR 
Xl,P0S2.Li 
ENDHSG 
MESS 
N.EMIT3 



ISSUE THE = £ND OF COMPILATIONS MESSAGE! 
IF SYNTACTICAL ERRORS WERE FOUND, PRINT ERROR 
_CA_R£_ OF FQCFILEI 



MESSAGES AND TAKE 





P0S2.LI 


SXU 


ENOCOMP 


# 




RJ 


MESS 






SAl 


ERRFLAt. 






ZR 


X1,P0S2. 


• 




sxo 


ERRMSG6 






RJ 


MESS 






RJ 


PRTERR 


• 




SB7 


OUTFET-i 






CALL 


EOR 






RJ 


PRTFQC 


• 




£Q 


N.EXIT2 




REWIND 


PASCLGQt 




• 


P0S2.L2 


SX6 


i<*68 






SA1 


PASGLGO 






sxa 


3ROPE 


• 




RJ 


PPREQ 



L2 



• 



OPEN/REMIND FOR READ AND WRITE 



MOVE SOME OUTPUT PARAMETERS FROM PARMLIST TO THE HEADER 

S82 5 NUMBER OF PARAMETERS TO MOVE 

SB* eDRBeiS(P*aMB2ST-6 

BX6 XI 

SA6 Al+83 

S82 B2-S1 

NE 82,*-l 

EJECT 
PQSYS.3 (BEFORE EXECUTION OF COMPILED PROGRAM) 



IF A NEW EXECUTION FIELD LENGTH IS SPECIFIED WE CONVERT IT TO UNARY! 
POSYS.3 SA1 FLPAR EXECUTION FL PARAMETER 

SA2 F.LGTH ACTUAL FIELD LENGTH 

BX6 X2 

ZR Xl t P0S3.L<* 



# 

# 
• 
• 



# 



RJ 

PL 

SXO 

RJ 

EQ 



DISP.BIN 

X6,POS3.L** 

ERRMSG3 

MESS 

ABN.EX2 



CONVERT TO BINARY 



• 



CHECK WHETHER THE USERES MAIN PROGRAM CAN BE LOADED! 



P0S3.L3 



POS3.L<* 



# 

m 



SXG 

RJ 

EQ 

SA6 

SA1 

SXi 

1X0 

NG 

SA1 

SXI 

1X0 

NG 



ERRMSG7 

MESS 

A8N.EX2 

FLPAR 

L IMC ODE 

Xl+JMPTABLG+i 

X6-X1 

X8,P0S3,L3 

LPJMPTA8 

Xi+PMDLGTH 

X6-X1 

X0,POS3.L3 



SAVE EXECUTION FIELD LENGTH 



RESULT MUST BE > 



• 
• 



IF THE EXECUTION FIELD LENGTH IS DIFFERENT FROM THE ACTUAL ONE 
WE ISSUE A MEM REQUEST AND CORRECT THE FET UMITSl 

FLPAR 



SA1 

SA2 

BXO 

ZR 

RJ 

SA6 

SA6 

SA6 



F.LGTH 

X2-X1 

X0,POS3.L6 

MEMREQ 

PASCLGO + <+ 

PASCAL+i* 

KEEPFETf^ 



• 



LIMIT 






IF OPTPAR = NOGO THEN IF KEEPFPAR = Q THEN TERMINATE 



PO^i.Lb 



SAl 

SA2 

8X0 

NZ 

SA1 

ZR 

EQ 



UPTPAK 

I0NOG0*2 

X1-X2 

X0,POS3.L7 

KEEPFPAR 

Xi,N.EXIT2 

P0S3.L14 



ELSE GOTO POS3.L1*** 
X2 * = EN0G05 



4 



TAKE ACTIONS FOR THE FILE! 



P0S3.L7 



m 
m 
m 



SA3 

SA1 

NZ 

3X1 

SA2 

8X0 

ZR 



IONOGO 

DPAR 

Xi,*+i 

X3 

PPAR 

X1-X2 

XQ,POS3.L8 



X3 1 = EINPUTE 

Xi t = NAME OF DATA FILE 

IF XI = THEN XI 1= EINPUTE 
X2 != NAME OF PROGRAM FILE 

IF P FILE = FILE WE 00 NOTHING 



WE CALL OPEN FOR THE SPECIFIED FILE, THEREBY ALSO INITIALIZING ALL 
EFET POINTERSi 



P0S3.L7A 



3X6 XI 

SA6 INFET 

SB7 A6-81 

BX3 X1-X3 

MXu 1 

LXi) 52 

SA2 67 

BX6 -xo»x2 

ZR X3,POS3.L7A 

8X6 XU+X2 

SA6 B7 

CALL OPEN 



CORRECT NAME IN FET 



MASK 1= 20B 

JUMP IF 0=INPUT 

MASK I- 308 

SET MASK 

OPEN AND INITIALIZE POINTERS 



TAKE ACTIONS FOR THE RESULT FILE* 



P0S3.L8 



SA1 
SB7 
NZ 

SA6 
CALL 



RPAR 

OUTFET-1 

Xi,*+i 

XiNOGO+l 

871-31 

OPEN 



XI * = NAME OF RESULT FILE 



IF XI = THEN XI *= EOUTPUTi 
CORRECT NAME IN FET 



CLINECTRJ * = LINE LIMIT* 
SA1 LLPAR 
8X6 XI 
SA6 LINECTR 





LOAD THE USER 


PROGRAM! 




P0S3.L14 SA1 




PASCLGO 


• 


RJ 




LOAO 




IF KEEPING 


IS 


WANTED THEN KEEP AND CHECK FOR NOGO* 


• 


SA1 




KEEPFPAR 




ZR 




Xi,POS3.L15 




RJ 




KEEP 


• 


SA1 




OPTPAR 




SA2 




I0NOG0+2 




BXy 




X1-X2 


• 


ZR 




Xfl,N.EXIT2 




PREPARE FREQUE 


:NCY COUNTING, IF DESIRED, AND EXECUTE 


• 


THE LOADED 


PROGRAMI 




P0S3.L15 SA2 




EXTFLA3S 




ZR 




X2,P0S3.L16 


• 


Skk 




LIMGODE 




SA1 




EXTMECT 



P0S3.L16 



RJ 

S32 

iAl 

MXii 

BXi) 

LXy 

sxa 

NZ 
RJ 

SB2 



LOAOEXTS 

30 

OPTPAK 

12 

Xi*XC 

12 

X0-2RFC 

X0,POS3. 

cpfqci 
l 



L17 



• 



IF THE FIELO LENGTH IS < BIGBUF+CTRMAX+1 IT MUST BE RAISEDl 



SA2 
SX* 
PL 
SXi 
RJ 
POS3.L17 S33 
RJ 



F.LGTH 

X2-3IG3UF-CTRMAX-1 

X0,POS3.L17 

BIG8UF+CTRNAX+1 

MEMREQ 

31+31 

GO 



FOR CEXECFLAG] 






• 
• 
* 



CALL CPFQC2 IF NECESSARY! 

ZR B2,POSYS.** 

EMPTY THE OUTPUT BUFFER! 

S67 OUTFET-1 

CALL EOR 

PRINT OUT FREQUENCY COUNTS! 

SB7 OUTFET-1 

SA1 LPAR 

BX6 XI 

SA6 OUTFET 

CALL OPEN 

RJ CPFJaC2 

SX6 BO 

SA6 FQCFILFL 

SA1 FQCNAME 

SA3 PASCLGO 

BX6 XI 

SA6 A3 

SXii 3RCLO 

SX6 1723 

SA1 A3 

RJ PPREQ 

BX6 X3 

SA6 A3 
EJECT 
POSYS.*f (TERMINATION) 



# 



SAVE FILE NAME 



CLOSE/UNLOAD 



RESTORE 



POSYS.if 



SXO 

RJ 



ENQMSG 
MESS 



NORMAL EXITS! 

EMPTY OUTBUF! 



N.EXIT1 



SB7 
CALL 



CLOSE * 
N.EXIT2 SXC 
SA1 
SX6 
RJ 

sxa 

SAl 



OUTFET-1 

EOR 

UNLOAO PASCLGO AND PMDFILE! 
3RCLO 
PASCLGO 

1728 CLOSE/UNLOAO 

PPREQ 
3RCLO 
PMOFET 






SX6 

RJ 

ISSUE ENO 
N.EXIT3 SX6 
LX6 

SA& 
PS 



1728 
PPREQ 

REQUEST* 
3RENO 
kZ 

Bl 



ABNORMAL EXITS* 



RPWTAB 



DATA 
BSS 




16 



ENTRY HERE AFTER ERROR DETECTED BY SCOPE* 
FIND ADDRESS. WRITE MODE IF MOOE ERROR* 



SB1 

SA5 

SXl 

LX5 

NZ 

SA5 

LXi? 

SX6 

SA1 

1X6 

SA6 

SXO 

RJ 

LX5 

IF DEATH OC 
AN ADDRESS 



F.ADO 



F.AD1 



F. AD2 



• 



F.AD3 

F. A04 



SA1 

ZR 

S32 

SA2 

S87 

LT 

SA5 

&H5 

SX5 

SB7 

GE 

SB7 

LT 

JP 

SA5 

SB7 

SE 

SA5 

SB7 

GE 

SA5 

SB7 

GE 

SA5 

LX5 

SB7 

GE 

SB7 

LT 

JP 

BX5 

EQ 



1 

RPVTA6 
X5-2 
Zk 

Xl,F.A0fl 

BO 

12 

X5 

MODEMSG 

X6+X1 

Al 

Al 

MESS 

13 

CURRED DURING EXECUT 
POINTING INTO IT, OT 

EXECFLAG 

X1,A3N, EXil 

X5 

LIMCOOE 

X2 

B2,37,*+2 

B6 + 81 

BZADi* 

82 

BIGBUF 

B2,87,F.A0% 

POSYS.% 

32,37,F.AQ2 

82 

RETO 

OPEN 

B2,37,F.AO<* 

RET1 

GETC 

B2,B7,F.A01 

RET2 

GET3 

B2,37,F.AD1 

PPREQ 

30 

A5 

B2,87,F.A01 

NULL1 

82, 87 ,F. ADS 

82 

X7 

ABN.EX11 



XI *= ERROR CODE - 2 
ADDRESS FROM XJ PACKAGE 
CHECK FOR MODE ERROR 
GET CRA+0] 

X6 *= MOOE 



ISSUE MODE MESSAGE 

X5 *= AOORESS (FROM RA + 0) 

ION OF A USER PROGRAM WE WANT 
HERWISE THE TRUE AOORESS* 



EXTERNAL ROUTINES 



USER PROGRAM 
TERMINATION IF POSYS.** 



OPEN, 



• • • » 



WRITE 



GETC, PUTC, EOR 



GETB,PUTB 



PPREQ 



ERROR EXIT TRANSFER WORDS 
OTHER TRANSFER WORDS 






• 



ENTRY HERE 
DEACTIVATE 
AdN.txi SBi 
SA1 
SX6 
SA6 
BXb 
MX2 
LX2 
BX6 
SA6 
WAIT 
RJ 



AFTER 
RFVI 



ERROR DETECTED BY PASCAL! 



RPVREQ 

BO 

RPVTAB 

X7 

3 

27 

-X2*X1 

Bl 

1 

MESS 

A8N.EX11 SX5 X5-1 

SX7 B5 

SA7 SAVE85 

BX7 X5 

SA7 SAVEX5 

SB2 6 

RJ BIN.DISP 

SA6 ADORMSG+i 

SXO AODRMSG 

RJ MESS 

SX1 BO 

SX2 Bi 

CALL CHAR 

SX5 3RCI0 

SA1 OUTFET 

SX6 26B 

RJ PPREQ 

SA1 EXECFLAG 

SB2 Xl-2 

NZ 32,A6N.EX2 

SX6 BO 

SA6 Al 

SX6 -Bl 

SA6 LINECTR 

RJ CALLPMO 



IN CALLPMO 
IN CALLPMO 



* 
• 
# 



EOL 






IF ILOADPARJ 
A3N.EX2 SAi 
NZ 

SXO 

SAI 

SX6 

RJ 

SX'u 

SAi 

SX6 

RJ 



CLOSE/UNLOAD 
LOAOPAR 
Xi,ABN.EX2i 
3RCLO 
PASCLGO 
1723 
PPREQ 
3RCLO 
PMDFET 
1728 
PPREQ 



PASCLGO AND PMDFILEt 



TAKE CARE 
ABN.EX21 RJ 



OF FQCFILEI 
PRTFQC 






ISSUE A8GRT/N0QDMP REQUEST! 



ABN.EX3 



HEADER 



SAI 

3X6 

SAG 

PS 

EJECT 

ass 



ABTREQ 

XI 

Bl 






DATE 
REQRDFL 



BSS 

8SS 



1 
1 



DATE OF BIRTH OF BINARY PROGRAM 
REQUIRED FIELD LENGTH 



LOADPT 


3S3 


LIMCOOE 


BSS 


LPJMPTAB 


6;>i> 


EX TF LAGS 


BSS 


ENTRYPT 


BSS 


0UT8UF 


EQU 


IN8UF 


EQU 



3IG8UF EQU 



1 
i 

i 
i 
i 



0UT8UF+BUFLGTH 
500.'3 



LOAD POINT OF BINARY INFORMATION 

LIMIT OF CODE 

LOAD POINT OF JUMP TABLE 

EXTERNAL ROUTINES FLAGS 

ENTRY POINT 



# 






END 

********************** ********* ******* ************ 

* * 

* PASCAL COMPILER * 

* ***************************** * 

* * 

* 23/11/72 * 

* * 



* AUTHORS! U. AMMANN, R. SCHILD 
* 

* FACHGRUPPE COMPUTERMISSENSCHAFTEN 

* 
* 



EIDG. TECHNISCHE HOCHSCHULE 
CH-8086 ZUERICH 



* 
* 

* 
* 
* 
* 






**************** ****************************** ***4, 



r*$T-,0+,R+ 



COMPILE WITH STACK OVERFLOW TEST AND 
ROUNDING INSTRUCTIONS* 



CONST NOP = 1*60008* NILVAL = 2000008, 

# jmpcst = 6i650oaocco^oaooaoaaa, eqjmp = 0<t0Gfl0Q0Q04600046G00B, 

MAX10 = 3ii*63ii*631463i*6313B, MASK = -777777B, 
HAXLABS = 20, MAXEXLA8S - 10, JMPMAX = 49, 

# CSTMAX = 40, CODMAX = 1900 > UNDMAX = 70, 
OISPLIMIT = 20, PTLIMIT = 10, FILLIMIT = 10, 
MAXLEVEL = 7, 

# ,* *DON = T INCREASE WITHOUT INCREASING UPPER BOUNO OF RG3 TOO* 
WORDLENGTH " 60, 

# PROCDR = -i, OBJ = +1, oFOR PMDFILE* 

GETC = 1013, PUTC = 1038, GETB = 1138, PUTB = 1028, 

# r*ADORESSES OF RESIDENT STANDARD ROUTINES* 

ASSERR = 1708, INXERR = 171B, DIVERR = 1728, STOFLERR ~ 1743, 

# ^RUNTIME ERROR EXITS* 

INPT = 2128, OUTPT = 2338? 

# e ADDRESSES OF STANDARD FILES INPUT AND OUTPUT * 

TYPE CTP = ♦contexttable; 

# CWORD = ARRAY £1, ,181 OF CHAR? 
ADDRESS = a.. 1777779 ? 
SHRTINT = -377777B .. +3777778? 

£ BITRANGE = . . 63 ', RG3 = . . 7 1 
ATTRKIND = < VAR3L , SV AL ,LVAL ,LCONO) ; 
ATTR = RECORD TYPTR t CTP ? 

# CASE KIND I ATTRKIND OF 

VAR8L1 (ACCESS i <ORCT,INQRCT,INXD> ? 
BRES I RG3 ; DPLMT I SHRTINT ? 

# CASE PCKD I BOOLEAN OF 

FALSE! ? 

TRUE! (BITADR, BITSZ I BITRANGE? 

# MASK» 800LEAN)) J 

SVAL* CVAL t SHRTINT) j 






LVAI_: (CTERM » SHRTINT) ? 

LCOND* (JMP t Q .. 3 ? ARITH I BOOLEAN) 



END 



» 



.♦DESCRIBES EXPRESSIONS TO BE COMPILED. EXAMPLES* 

VARBLt ORCTt I **) 

INDRCTJ INPUT* *) 

INXD* AtK] *) 

SWALt k »*) 

LVALt 2*1 - 1 *) 

LCONOt ARITHi X > **.l *) 

^ARITH* 8 < TRUE ») 

*) RESULT OF COOEGENERATION IN REGISTER X-RP 
*♦) NO COOE GENERATION UNTIL NOW* 

OPTPWR = (NOOPT,PUREP,POSP,N£GP) ? 

IOCLASS = <TVPES»KONST,PROC,VARS, FIELD, TAGFI£LD,DUMMYCLASS)S 

TYPFORM = (NUMERIC, SYMBOLIC, POINTER, POWER, 

ARRAYS, R£CORDS,CLASSS, FILES) ? 
IOKINOS = ( ACTUAL, FORMAL) ,* 
WHERE = (BLOCK, CWITH,VWITH) ? 
PKINDS = PROCDR . . 08J? »»FOR PMOFILE* 

VAR PARMLIST t RECORD IC8 * ADDRESS I 

ERRFLAG » BOOLEAN ? 

ERRNRS I ARRAY CO.. 3) OF SET OF 0..31 5 
LOAOPT 1 ADDRESS ? 
LIMCODE I ADDRESS ; 
LPJMPTAB * ADDRESS ? 
EXTFLAGS I SET OF 0. •** ? 
ENTRYPT t ADDRESS 
END | 
JMPTAB : ARRAY CO..JMPMAXJ OF INTEGER? 
JMPIX I ShRTINT; 

.♦TRANSFER VECTOR FOR CALLS OF FORWARD DECLARED PROCEDURES AiiD 
GOTO STATEMENTS LEADING OUT OF PROCEDURES* 

CSTT8 * ARRAY £i, .CSTMAXJ OF 

RECORD VALU I INTEGER! INX I SHRTINT END? 

LCX i SHRTINT? 

.♦CONTAINS ALL CONSTANTS C, A8S(0RD(O) > 2**17, OCCURRING 1*1 THE 
PROCEDURE ACTUALLY BEING COMPILED TOGETHER WITH AN INDEX INTO 
UNDLAB WHERE THEIR OCCURRENCES IN THE COOE OF THIS PROCEDURE 
ARE CHAINED* 

PILEV,FILEV I ARRAY C G . . MAXLEVEL ] OF SHRTINT? 
PFL * ARRAY[G..FILLIMITJ OF AODRESS,' 
FILPTS * ARRAY £Q . ,F ILLIMIT ] OF 

PACKED RECORD PTR I DTP? SPEC * SHRTINT END? 
PFTOP,FILTOP * SHRTINT? 
i»PFL CONTAINS THE ADDRESSES OF LOCAL CLASSES, 

PILEV CONTAINS POINTERS INTO PFL, PFTOP - TOP OF PFL. 
FILPTS CONTAINS POINTERS TO ENTRIES FOR LOCAL FILES, 

FILEV CONTAINS POINTERS INTO FILPTS, FILTOP s TOP OF FILPTS* 

EXTAB : ARRAY £1. . MAXEXLA8S 3 OF 

PACKED RECORO EXV AL , JMPT A8IX I SHRTINT END? 
CEXTABIX I SHRTINT? 
.♦CONTAINS THE EXPLICITLY DECLARED LABELS OF ALL PROCEDURES 
NOT YET CLOSED, TOGETHER WITH THEIR CORRESPONDING INOEX 
# INTO JMPTAB* 

LABTAB t ARRAY C1..MAXLA8S3 OF 
£ PACKED RECORD LA8VAL,FL02 ,FL03 X SHRTINT END? 

CLA8IX I SHRTINTI 



(♦CONTAINS ALL LABELS MET SO FAR IN THE 300Y OF THE PROCEDURE f 

ACTUALLY BEING COMPILES, TOGETHER WITH INFORMATION WHETHER £> 

LABEL DEFINITION t<LAd£L>l) ALREAUY FOUND OR NOT (FL02) . 
IN THE FORMER CASE FLD3 CONTAINS THE CORRESPONDING AODRESS» 

WHERE IN THE LATTER CASE FLQ3 CONTAINS AN INDEX INTO UNDLAB • 

WHERE THE OCCURRENCES ARE CHAINED* 

UNDLAB « ARRAY [1..UNOMAX] OF £ 

PACKED RECORD SUCC, PLACE I SHRTINT 5 
LFTSH » BITRANGE ; 
END ; # 

CHNIX I SHRTINT 5 

cACTS AS LISTSTRUCTURE, CHAINING OCCURRENCES OF CONSTANTS AMD 
JUMPS TO NOT YET REACHED LABELS IN THE CODE OF THE PROCEDURE # 

ACTUALLY BEING COMPILED.' 
CHNIX = HEAD OF FREE LIST* 



PTLIST * ARRAY C0..PTLIHZT1 OF 

RECORD HNAME * ALFA? PPTR t CTP ENO; 

# PTX I SHRTINT? 

.♦PTLIST CONTAINS NAMES OF YET UNDECLARED CLASSES AND 
POINTERS TO THE CORRESPONDING POINTER-TYPE ENTRIES 

# PTX = TOP OF PTLIST * 

ERRLIST I ARRAY £i..iOJ OF 

# PACKED RECORD POS,NMR I SHRTINT END; 
ERRINX, GHCNT J SHRTINT? EOLFLAG,ERR I BOOLEAN? 
fERRLIST CONTAINS THE POSITIONS AND NUMBERS OF THE ERRORS 

# ON ONE LINE 

ERRINX = TOP OF ERRLIST 

CHCNT = POSITION OF LAST READ CHARACTER 

# ERRLIST, ERRINX, CHCrtT ,EOLFL AG ARE USED BY NEXTCH 

AND ERROR. 
ERR IS SET WHENEVER ERROR HAS BEEN CALLED AND IS TESTED 

# (AND RESET) BY SEVERAL PROCEDURES * 

DISPLAY I ARRAY £ .. DISPLIMIT 3 OF 
PACKED RECORD FNAME * CTP? 
CASE OCCUR * WHERE OF 



# 







BLOCK 


* ? 
















CWITH 


» (COSPL 


I 


SHRTINT? 


CLEV 


I 


RG3) ? 






VWITH 


1 (VDSPL 


t' 


SHRTINT) 


• 






end; 


















TOP,DISX 


* SHRTINT? 












.♦TOP 


= TOP OF DISPLAY, I 


3ISX IS RETURNED 


BY 


SEARCH* 



CODE * ARRAY CD..COOMAXJ OF INTEGER? 
CA,CP : SHRTINT? BUF I INTEGER? 
PASCLGOIOUTJ I FILE OF INTEGER? 
(♦CODE IS WRITTEN ONTO PASCLSO. 

6UF IS THE CURRENT ELEMENT OF CODE. 

CA = INDEX TO CODE, CP = NUMBER OF QUARTER-WORDS USED * 
LASTOP, LASTI I SHRTINT 1 *»TG AVOID 8 XI XJ - INSTRUCTIONS* 

PMDFIL£[OUT]l FILE 1 OF 

PACKED RECORD PNAME I ALFA? 
CASE PKIND t PKINDS OF 
OBJJ {ACCESS, TYP,RLA * SHRTINT)? 
* PROCOR* (LINK,SA, COUNT t SHRTINT)? 
END? 
PMCTR,LASTLINK t SHRTINT? 

LC,IC t ADDRESS? 

(♦LOCATION COUNTER AND INSTRUCTION COUNTER* 

LEVEL, RP,RP1 t RG3? 



• 



_ ,»RP,RPi ~ REGISTER-POINTERS (STACK OF X-REGS)* 

# DP I BOOLEAN ? 

(♦Of = IRUt I DECLARATION PART (USED 8V NEXTCH)* 

# PRCOOE,ASSCHECK,INXCHECK»DIVCH£CK,STOFLCHECK, 
ROUNDING » BOOLEAN ? ^COMPILER OPTIONS* 

• GATTR * ATTR; *»GLOBAL ATTRIBUTE RECORD * 

CONTEXTTABLE I CLASS %5Q OF 

# PACKED RECORD 

NAHE I ALFA? NXTEL I CTP? 
CASE KLASS I IDCLASS OF 

• TYPES I (SIZE * SHRTINT? 

CASE FORM 1 TYPFQRM OF 

NUMERIC » (BITS » BITRANGE? MIN,MAX I INTEGER)? 

• SYMBOLIC I (FCONST,PWS£T t CTP; 8ITSIZE I BITRANGE)? 

POINTER » (DOMAIN, ELTYPE I CTP)? 

POWER t (ELSET t CTP? PW8ITS * BITRANGE)? 

• ARRAYS I (AELTYP£,INXTYPE I CTP? LO,HI * SHRTINT? 

OPTTYP * OPTPWR? EXP1,£XP2 t BITRANGE)? 
RECORDS t <FSTFLO,RECVAR I CTP)? 

• CLASSS t (PELTYPE i CTP)? 

FILES t (FELTYPE I CTP) ) ? 

KONST I (CONTYPE, SUGG 1 CTP? VALUES I INTEGER) ? 

# PROC t (PROCTYPEjFORMALS * CTP? 

PROCKIND i IOKINDS; 

PROCADDR * ADDRESS? PROCLEVEL % RG3 ? 
% SEGSIZE 1 SHRTINT)! 

VARS I (VTYPE : CTP? VKIND « IOKINDS? 
VADDR I ADDRESS? VLEVEL * RG3) | 

• FIELD t (FLDTYPE I CTP? FLOADDR I ADDRESS? 

BITDISPLjBITWIDTH f BITRANGE)? 
TA3FIELD 1 (CASESIZE I SHRTINT? VARIANTS l CTP? 

# CASE TAGVAL I BOOLEAN OF. 

FALSE t (CASETYPE * CTP) ? 

TRUE t (CASEVAL I INTEGER) )J 

• END? 

INTPTR,REALPTR,ALFAPTR,CHARPTR,BOOLPTR,PRE0£FP,NILPTR, 

# UNOECPTR,PNUMPTR,EXTPTR,LAMPTR I CTP? ^CONSTANT POINTERS* 

NEXT,CTPTR,MAXCTP I CTP? 

# ^VARIABLES POINTING INTO CONTEXTTABLE* 

CH t CHAR? AVAL 1 ALFA? IVAL I INTEGER? A I CWORD? 

# NO,CL * SHRTINT? 

.♦CH IS OUTPUT BY NEXTCH AND USED BY INSYM80L. 
AVAL/IVAL, NO-, CL ARE OUTPUT BY INSYMBOL* 

TCT,TMAX,B6DPL,KK t SHRTINT ? 
PT * CTP? IT,ITi I INTEGER? 

• ^AUXILIARY VARIABLES, USED IN MAIN PGM AND SEVERAL PROCEDURES* 

DIGITS t SET OF CHAR ? 

• i»QS SIN/COS, 11 EXP, 21 LN, 31 SORT, hi ARCTAN* 

•♦CONSTANTS AND CONSTANT TABLES! * 

# TWOT017 t INTEGER? 

SPLITSTAT 1 ARRAY IQ.,<t8J OF SHRTINTI 

£RRCL,TERRCL 1 ARRAY tfl..i+31 OF (IRRELSY , BEGSY ,£NDSY) ? 

• BLANK I ALFA? 

WD 1 ARRAY [0..323 OF ALFA? 
WNO,WCL t ARRAY IQ..32) OF SHRTINT? 

# WL t ARRAY CO. .11) OF SHRTINT? 
j» WD = WORD DELIMITERS 



• 






WNO,WCL = CORRESPONDING VALUES OF NO AND CL 
WORO DELIMITERS OF LENGTH I START IN HDCWLtllJ 

StMNO,SYMCL * ARkAY IS+S..S;SJ OF SHRTINT; 

eNO AND CL OF EACH CHARACTER* 

UB1,J82, JX1,UX2,REL,FS,R1 I ARRAY CO. .71 OF CHAR; 

SH t ARRAY (12. .23] OF CHAR; 

.♦ARRAYS JB1 ... SH ARE USED 8Y PRTCOHP^ 

INITNAH I ARRAY C-i. .37] OF ALFA; 

.♦CONTAINS THE PREDEFINED IDENTIFIERS, 

USED FOR INITIALIZING THE CONTEXT TABLE* 



# *» VARIABLE INITIALIZATIONS * 

VALUE 

TWOT017 = i+COGGOB ? 

# SPLITSTAT = (1,2,19*1, 3, 1,4,1,1,5, 1,6, 1,7,1,8, 2*1, 9,12*i,10J J 
ERRCL = (16*IRR£LSY,ENDSY,4*IRRELSY,8EGSY,ENDSY,BEGSY, IRRELSY, 

ENDSYjBEGSY, IRRELSY ,BEGSY ,ENDSY ,BEGSY, IRRELSY ,BEGSY, 

# 2*IRRELSY,B£3SY,IRRELSY,EN0SY,2*IRRELSY,2*EN0SY, 

IRR£LSY,3*ENDSY,2*IRRELSY,BEGSY) ; 

TERRCL = (9*IRRELSY,8EGSY,ENDSY, IRRELSY, ENDSY,3*IRR£LSY, 

# ENDS Y, IRRELSY, BEGSY ,2*IRRELSY, 3*£N0SY, 2*IRRELSY,ENDSY , 
IRRELSY, ENDSY, IRRELSY, ENDSY, IRRELSY, END SY,2*IRR£LSY, 

^ ENDSY, IRRELSY, ENDSY, BEGS Y, IRRELSY, 2*ENDSY, IRRELSY, 

9 3*EN0SY,2*IRRELSY,EN0SY) ; 

BLANK = = E ? 

WD = (SIF=,SOO=,STOS,EOF=,EINE, 

# EENOE,ENILS,EFORS,EDIV=,EMODS,SVARE,SSET=, 
ETHENS,EELSEE,SGOTOE,SCAS£=,EWITHE,STYPES,=FILES, 
EBE3INE,=UNTILE,SWHIL£=,EARRAYS,S¥ALUEE,ECLASS=, 

# ECONSTS,ELABELS, 
ER£PEATE,EOOWNTOS,=R£CORDE,=PACK£Q=, 
EFUNCTIONE,=PROC£DURES) ; 

# WNO = (23,31,33,27,8, 

22,36,32,6,6,43,38, 
24,25,35,26,43,37,33, 

# 21,29,35 ,38, 47, 33,41, 49, 
28,33,38,42, 

kkykSi ; 

# WCL = (0,0,1,0,7, 

0,0,0, 4, 5, 0,5, 
6*0,3, 

# e,o,e, 1,0,^,0,0, 

0,2,2,1, 

c f o) ; 

# ML = (u, 0,0, 5, 12,19, 27, 31, 31, 32, 33, 33) ; 
SYMNO = (7,7,6,6,9,10,4,8,0,15,17,0,11,12, 

19,8,13,7,6,18,14,8,3,8,8,5,16) ? 

Q ,i»6«,3» 0, 0,2,0,3, 

^,2,3,1,0); 

S E,E£E,=NE,iG=,ELE); 

E E,=i=, SEE, SEE, STEM 

ENS, SIS, SOS, EDS, SIS) ; 

S5S,SRS,ERS,SFS,SDS); 

S-S,S=S,E*S,S>S,S<S); 

E E,S E,EAE,ESE, =% = ) 'y 

EXE, SAE,SAE,S8S,S8S) ; 

SIS,SLS,SA5,SLS,SAS,SNS,SZS,SUS,SPE)| 
INITNAM = (EWEORS,EGETS,SPUTS,SRESETS,SR£WRIT£S, 
EPACKE,EUNPACKE,E INSERTS, EAPPENDE, 
EREADS,EWRITES,ENEWS, 

EODOS, SOROS, SGHRS,S£0FS,SA3SS,SSQ.RS, 
ETRUNCE,EPREDE,ESUCCE,EEOLE,EALFALENGE, 
EINPUTE,EOUTPUTE,SALFAS,EREALS,SCHARS,SBOOL£ANE, 
EF ALSES , =TRU£5 , =1 NT EGERS , E 








JB1 


• 


JB2 




JX1 




JX2 


• 


REL 




FS 




Rl 


• 


SH 



SYMCL = (1,2,1,2,0 
£,5,0,3,3,0,0,1 

= (SPS,ERE,SJS 

- (ESS, SUE, EPS 

= (SZS,SNS,SPS 

= (ERE,EZE,ELE 

= (E S,SaS,S»S 

= (EFE,ERE,EOE 

= (EAE,EBE,EXE 

= (EFS,EDS,SRE 



• 



:SIN=,=COSE,=£XPi,=LNE,=SQRT=,=ARCTAN=) ? 



(♦TWO iTANUARD PROCEUUKES INSERT ANO APPEND ARE PROVIDED FOR 
CODE GENERATION. 

• APPEND(A,B,C> SHIFTS THE CONTENTS OF A LEFT 8 BITS ANO 

= OR=S C INTO IT, RESULT IN A, B,C UNCHANGEO. 
INSERT(A,B,C) SHIFTS THE CONTENTS OF A LEFT 8 BITS AND 

• EORES THEM INTO C. RESULT IN C. A,B UNCHANGED 
A,B,C ARE OF TYPE INTEGER + 

PROCEDURE PRTERR 5 

VAR LASTPOS, FREEPOS, CURRPOS, CURRNMR, F,K I SHRTINT ? 

• BEGIN WRITER **** =) ? 

LASTPOS i= ? FREEPOS *= 1 J 
FOR K la 1 TO ERRINX DO 

• BEGIN WITH ERRLIST£K1 00 

BEGIN CURRPOS t= POS i CURRNMR 1= NMR END ? 
IF CURRPOS = LASTPOS THEN WRITE (=, =) ELSE 

• BEGIN WHILE FREEPOS < CURRPOS 00 

BEGIN WRITE <= = ) J 

FREEPOS 1= FREEPOS * 1 

• END ; 

WRITE (=*=) ; 
LASTPOS 1= CURRPOS 

• END ; 

IF CURRNMR < 10 THEN F i= i ELSE 

IF CURRNMR < 100 THEN F «= 2 ELSE F I* 3 ? 

• WRITE (CURRNMR i FJ ? 
FREEPOS *= FREEPOS + F + i ? 

END ? 
WRITE (EOL) ? ERRINX 1= 
END i»PRTERR* ? 

• PROCEDURE NEXTCHJ 

BREADS NEXT CHAR OF FILE INPUT. 
CONVERTS EOL TO 3LANK, 

• PRINTS ERROR SUMMARY AFTER EACH LINE (IF ERRORS PRESENT) 
ANO PRINTS ADDRESS AT BEGINNING OF LINE * 

BEGIN 

• IF EOLFLAG THEN 

BEGIN IF ERRINX » C THEM .♦PRINT ERRORS* PRTERR? 
EOLFLAG 1= FALSE? GHCNT i= 0? 

• OUTPUT* := E =? PUT (OUTPUT)? 

IF QP THEN WRITE(LC 1 6 OCT) ELSE WRITEdC * 6 
OUTPUT* i= = =', PUT(OUTPUT)? 

• END fEOLFLAG*? 
GET(INPUT)? CH := INPUT*| 
OUTPUT* 1= CH? PUT(OUTPUT)? CHCNT 1= CHCNT + 1? 

• IF CH = EOL THEN 
BEGIN CH * = = =? EOLFLAG := TRUE ENO? 

END .♦NEXTCH*? 

PROCEDURE ERROR(I*SHRTINT) ? 
BEGIN ERR != TRUE ? 

• WITH PARMLIST 00 
BEGIN ERRFLAG * = TRUE ? 

ERRNRSCI OIV 32] 1= ERRNRST.I DIV 323*11 MOD 32] 

• ENO ; 
IF ERRINX > 9 THEN 
BEGIN ERRLISTU03.NMR 1= ±Qk ? ERRINX 1= 1Q ? 

• WITH PARMLIST DO 
ERRNRSC33 » = ERRNRSC33 v£ 8 ] ? 

ENO ELSE 
BEGIN^ ERRINX 1= ERRINX + 1 J 

ERRLlSTtERRINX].NMR 1= I 






t 



END ; 

ERRLISTCERRINX1.P0S 
tNU f»£KKOK+» 



CMC NT 



• 


i» I N 5 Y 


M B L 




REAOS 


ONE PASCAL- 




i* LIST OF 


SYMBOL 


NUMBERS 










NO 


CL 


SYMBOL 




NO 


CL 


SYMBOL 


• 


















1 




10 




20 




1 = 




2 


1 


INTEGER 


CONST 


21 




BEGIN 


• 


2 


2 


REAL 


CONST 


22 




END 




2 


3 


ALFA 


CONST 


23 




IF 




2 


V 


CHAR 


CONST 


Zk 




THEN 


• 










25 

26 




ELSE 
CASE 




& 


1 


-» 




27 




OF 


• 


6 


1 


* 




28 




REPEAT 




6 


2 


/ 




29 




UNTIL 




6 


3 


A 




30 




WHILE 


• 


6 


*+ 


oiv 




31 




DO 




6 


5 


MOD 




32 




FOR 




7 


1 


+ 




33 


1 


TO 


• 


7 


2 


- 




33 


2 


DOWNTO 




7 


3 


V 




35 




GOTO 




a 


1 


< 




36 




NIL 


• 


8 


2 


< 




37 




TYPE 




8 


3 


> 




38 


1 


ARRAY 




8 


k 


> 




38 


2 


RECORD 


# 


8 


5 


t 




38 


3 


FILE 




a 


6 


= 




38 


<+ 


CLASS 




8 


7 


IN 




38 


5 


SET 


# 


9 
10 
11 








*>0 

wz 




LABEL 
CONST 
PACKED 


• 


12 








k3 




VAR 




15 




> 




kk 




FUNCTION 




16 




• 




k5 




PROCEDURE 


• 


17 




• 




h7 




VALUE 




18 




♦ 




k& 




WITH 




19 
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NOT PASCAL SYMBOLS 1 BLANK i 



$ 



PROCEDURE INSYM80L,* 

VAR SCALE, EXP I SHRTINTI R f FAC,RVAL t REAL? 
DIGIT 1 ARRAYC0..191 OF SHRTINTJ 

r»FOR WQR0LEN3TH OIV 3 = 21 DIGITS* 
I,K I SHRTINTI 8T1,SIGN * BOOLEAN; 
A A J ALFA? CHI * CHAR! 



BEGIN 
II WHILE 

IF CH 

BEGIN 
K 



CH== = DO NEXTGHJ 
< =ZE THEN 
<* RcAD IDENTIFIER 

i= o; 



OR WORD DELIMITER * 



REPEAT IF K < ALFALENS THEN 

BEGIN K *= K + 1? A£K1 « = CH END? 
NEXTCH? 

UNTIL CH >=9=5 

IF K > KK THEN KK t= K ELSE 

REPEAT AIKK1 «= = = ? KK 1= KK - 1 UNTIL KK = K 

PACK(A,1,AA) ; 

f» TEST FOR WORD DELIMITER * 






# 



• 



• 



FOR I t= WLCKJ TO WLCK+iJ-1 DO 

# if aa = woc 13 then 

begin no 1= wnociji cl 1 = wcl£ijj 
ival 1= 0? goto 2; 

# end; 

•• identifier * 

no * = 1j cl » = kj aval 1= aaj 

# 21 end ^letter* else 

if ch < =9= then 

begin no 1= 2 5 cl *= 1? i 8= 8; 

# while ch in digits do 

begin if i < 20 <»20 = worolength div 3* then 
digitii1 1= oro(ch) - ord(=0=>? 

# i *= i + u nextch 
end; 

IVAL *= 0? 

• IF CH = =B= THEN (♦OCTAL* 

BEGIN IF I > 20 THEN ERRORC2) ELSE 

FOR K 1= 3 TO I-i 00 IVAL «= 8*IVAL + DIGITCKl; 

• NEXTCH 

ENO .♦OCTAL* ELSE 

BEGIN IF I > 17 THEN ERR0RC2) ELSE 

• FOR K U II TO I - i 00 

begin if ival s maxio then 

ival t= 10*ival + oigitckj else 

# begin err0r(2m ival «= 5 goto kq end 

end; 

*0 t SCALE t= 0:1 

• IF CH s =.= THEN 

BEGIN NEXTCHJ IF CH = =.= THEN CH *= = * = ELSE 
BEGIN RVAL 1= IVAL? CL != 2? 

• IF "tCH IN DIGITS) THEN ERR0RC3) ELSE 

REPEAT R != OROCCH) - ORQ(=Q = ); 

RVAL 1= 1§.0*RVAL + R? 

• SCALE t= SCALE - i? NEXTCH 

until "'{ch in digits) ; 
end; 

# end; 

if ch ~ eeh then 

BEGIN IF SCALE = THEN 

• BEGIN RVAL *= IVAL? CL t = 2 

end; 

sign *= false; nextch; 

# if ch = =+= then nextch else 

if ch = = -e then 

begin nextch! sign *= true 

# end; 

exp t= o; 

WHILE CH IN DIGITS DO 

• BEGIN EXP *= 19*EXP + (ORD(CH) - ORD<=0=)); 

NEXTCH 

end; 

# if sign then exp 1= -expj 

scale 1= scale + exp 

end; 

IF SCALE t THEN 

BEGIN R l= 1.0 ; 

IF SCALE < THEN BEGIN FAC 1= 0.1 J SCALE *= -SCALE END 

# else fac *= ia.a; 

REPEAT IF OOD(SCALE) THEN R i= R*FAC; 

FAC i= SQRCFAO; SCALE *= SCALE DIV 2 

• UNTIL SCALE = 0$ i»R = 13 ** SCALE* 

RVAL i= RVAL*R 

end; 
% if cl = 2 then ival 1= ord<rval) 

end (♦not octal* 






ft 
• 



==== eno; 



TRUE 
!= CH 



END 



END ELSE 
END? 



# 



• 
# 
ft 
• 



END cNUMBER* ELSE 

BEGIN r* SPECIAL CHARACTER *> 

IF oH * £= = = fMtiM i* ALFA OK CHAR CONSTANT 
BEGIN NO 1= 2J K 1= 3; BTi » = FALSE? 
REPEAT NEXTCHJ 

IF CH = ==£= THEN 

BEGIN NEXTCH? BTi * = CH t 

IF ^BTi THEN 

IF K = ALFALENG THEN 
BEGIN ERR0R<3) ? 8T1 1 = 
BEGIN K 1= K + 1» AtK] 
UNTIL BTI? 

IF K =1 THEN o CHAR CONST + 
BEGIN CL*=*»? IVAL*= OROCAC13) 
ELSE + ALFA CONST * 
BEGIN IF K > KK THEN KK t- K ELSE 

REPEAT AtKKJ t- i = ? KK t= KK - i UNTIL KK * X 
PACK (A»1,AA) ? 

cl»=3? ival*= oro(aa) 5 

end; 

END <* = * ELSE 

BEGIN NOI= SYMNOCCH1? CL l=SYMCL[CH 1 ? 
(♦ TEST FOR THO-CHARACTER SYMBOL ■ 
IF CH = =1= THEN 
BEGIN NEXTCH? 

IF CH==== THEN 

BEGIN NOI= 20? NEXTCH END? 
ENO ELSE 
IF CH = = .2 THEN 
BEGIN NEXTCH? 

IF CH = =.= THEN i» : + 

BEGIN NO*=i9? NEXTCH END? 
END ELSE 

IF CH = =i»= THEN *» 
BEGIN NEXTCH? 

IF CH = =$= THEN 

REPEAT NEXTCH i 



ASSCHECK t- CH = =+= ELSE 
PRCODE 1= CH s =+= ELSE 
DIVCHECK »* CH = =+= ELSE 
STOFLCHECK * = CH = =+= ELSE 
ROUNDING 1= CH = =♦= ELSE 



lVALt=fi? 



• 



SKIP COMMENT + 



IF CH 


t =+= 


THEN 


BEGIN 


CHI i- 


= CH ? NE 


IF 


CHi s 


=A= THEN 


IF 


CHI s 


=C= THEN 


IF 


CHI = 


=0= THEN 


IF 


CHI = 


=0= THEN 


IF 


CHI - 


= R= THEN 


IF 


CHi = 


=T= THEN 



CH # ~*= THEN 






BEGIN ASSCHECK 1= 
DIVCHECK * = CH 
ROUNDING *= CH 

END ELSE 

IF CHi = =X= THEN 
IF 
END ? 
UNTIL 
WHILE 
NEXTCH? 
END ELSE 
NEXTCH? 
END <* SPECIAL CHARACTER 
END? 
END t* INSYMBOL * ? 



CH = =+= ? 

= =+= I STOFLCHECK 1= CH = =♦; 
* =+= ? INXCHECK 1= CH = =+= 



INXCHECK 
NEXTCH 



t- CH * E+r 



• 
• 
• 



CH 
CH 



t =,= 

t =* = 
GOTO 1 



00 



NEXTCH: 



PROCEDURE SRCHREC(PICTP) ? 

& SEARCHES ONE BLOGK, RETURNS CTPTR * 
BEGIN CTPTR 1 = P ? 



WHILE CTPTR t NIL 00 

IF CTPTR*. NAME = AVAL THEN GOTO i 
tLbt C7HTR * = CTPTR*. NXTEL; 
ilENO c SRCHREC * ; 

PROCEDURE SEARCH? 

*♦ SEARCHES CONTEXTTABLE, RETURNS CTPTR ANO OISX » INDEX TO 
DISPLAY + 

VAR I \ shrtint; 
begin for i 1= top qownto do 
besin ctptr t= display! i 1 . fnamej 
while ctptr * nil do 

if ctptr*. name = aval then goto 1 
else ctptr 1= ctptr*. nxtel j 
end; 
it oisx i= i; 

END i» SEARCH * ; 



# 

• 










PROCEDURE INCONST (WAR V t INTEGER? VAR P 1 CTP; NXT « CTP) | 


• 




+ INPUT PARAMETER I NXT. SEARCHING IS TO BEGIN AT NXT 
OUTPUT PARAMETER 1 V = VALUE 

P = TYPE POINTER , P ~ NIL IF ERROR + 


• 




VAR SIGN i boolean; pt i ctp; 

BEGIN SIGN 1= FALSE! P »= MIL? 
IF NO = 7 THEN 


# 




BEGIN SIGN 1= CL - 2? 
IF CL < 2 THEN 
BEGIN INSYMBOL; IF NO = 1 THEN ERRCR<3) ENO; 


# 




end; 

if no = 2 then 

begin case cl of 


• 


11 


P i= intptr; 




2t 


p i= realptr; 




31 


p «= alfaptr; 


• 


%i 


p i= charptr; 
end; 
if sign then v t = -ival else v != *ival? 


• 




INSYMBOL ; 
END ELSE 
IF NO = 1 THEN 


• 




BEGIN PT 1= CTPTR? 
SRCHREC(NXT); 
IF CTPTR = NIL THEN SEARCH; 


• 




IF CTPTR = NIL THEN ERR0R<12) ELSE 

WITH CTPTR* DO 

BEGIN IF KLASS t KONST THEN ERR0RC63) 


# 




ELSE 

BEGIN P i= CONTYPE? V t= VALUES END; 

end; 


• 




ctptr *= pt; insymbol; 

END ELSE ERR0R<3i ? 
ENO t* INCONST + ; 


• 


<* 





# 



m 



# *• CODE GENERATING ROUTINES * 

PROCEDURE NOOP; 

# BEGIN WHILE CP < k DO 

BEGIN APPENDC8UF,15,N0P)| 
CP J= CP + i; 

# END ; 

END f* NOOP + ; 

# PROCEDURE GEN15iOP,I,J,K t SHRTINT)? 
BEGIN LASTOP i= OP I LASTI f* I ; 



# 
# 



• 

# 



IF CP t it THEN 
BEGIN CP *= CP 
titGlN bODtlCAJ 

CA t = 

IF CA 

BEGIN 

end; 
end; 

8UF t= { <8*BUF 
END & SEN15 + ; 



*■ 1? APP£ND(BJF,6,0P) END ELSE 



*= buf; 
ca + i; ic 1= 

> COOMAX THEN 
ERR0RC9S)? CA 



auf i= op; 
ic + i; 

t- i; 



cp »= 1 



+ I>*3 + J)*3 + K 



PROCEDURE GEN3G(0P,I,U,K * SHRTINT)? 
BEGIN LASTOP l= OP * LASTI *= I ? 






END 



IF CP 
BEGIN 
IF CP 
BEGIN 
BEGIN 

CA 

IF 

BEGIN 

END? 
END? 

8UF «= <8*BUF 
IF K > THEN 
•♦ GEN39 + 5 



CP t= k END? 



= 3 THEN *SN00P* 

APPEND (BUF, 15, NOP); 

< h THEN 

CP *= CP + 2? APPEND<8UF,6,0P) 

CODEICAI i= BUF? BUF 1= OP; CP 

1= CA + i? IC 1= IC + i; 

CA > CODMAX THEN 

ERRORI90) 5 CA i= 1? 



ENO ELSE 
I- 2? 



m 



+ I)*8 + J ? 
APPEND ( BUF, 1 3 ,K) 



ELSE APP£ND<8UF,i3,777777B+K) 



m 



PROCEDURE BXIXJd, J i SHRTINT) ? 

-TO AVOID B XI XJ INSTRUCTIONS WHENEVER POSSIBLE* 
BEGIN IF (J = LASTIJMLASTOP > 18B)a(LASTOP < <*58) 
A-aASTOP IN [20B,2iB,<+38]) THEN 

BEGIN IF BUF > THEN BUF »= BUF - LASTI*6<t + 1*6* 
BEGIN BUF 1= - BUF ? 

BUF t= BUF - (7 - LASTI)*6* + (7 - I)*6* ? 
BUF 1= - 8UF 
ENO ? 

LASTI t= I 
END ELSE GEN15(10B,I,J,Q) 
ENO i»BXIXJ* ? 



ELSE 



• 



PROCEDURE INS(FADR * ADDRESS ? FCP, FCA I SHRTINT) ; 
BEGIN IF CA t FCA THEN INSERT ( FAOR, (4-FCP) *15,CODECFCAl) 

ELSE INSERT (FADR, (CP-FCP) *15, BUF) 
END ? 



•• ROUTINES TO PRINT CODE AND JUMPTABLE ANO TO OUTPUT CODE ♦ 

PROCEDURE PRTCOMP? 

f GLOBAL ARRAYS I JB1 , JB2 , JX1 , JX2 ,REL ,FS , Ri ,SH + 
VAR II,JJ,KK * CHAR? 

C,CC,S,IT3, OP,I,J,K * SHRTINT? 

M,1T* X SHRTINT? 

PROCEDURE OUTCHCC * CHAR) ? 
BEGIN WRITE <C) END ? 

PROCEDURE SPACE I 

BEGIN WRIT£<= ~) ENO ? 

BEGIN 

IC J= IC - CA - i? 
M J= -778? IT* *s -73? 
FOR IT3 1= 1 TO CA 00 
BEGIN BUF t= -COOECIT3 3? 



• 



OUTCHCEOLU 



OUTCH(E E) 5 OUTCH(E E) ? WRITEQC + IT3 I 6 OCT)? S 1= 0: 

# REPEAT IT * = 8UF; APPEND ( IT , S+6,M> J OP != -IT; 

O «= OP MOO 3? 

it »= but; APPENaciT,s+9,iT<*>; i *= -it; 
• it *= but; APPENOciT,s+i2,iTit> ; j t= -it; 

IT »= 8UF? 

IF (OP < 3) v ((OP > ifO) a (C < 2)) THEN 

# BEGIN S «= S+3GJ APPENO (IT, S, MASK) END ELSE 

BEGIN S »= S+15; APPEND<IT,S,IT<0 END; 



• 



K 1= -IT 



CC * = OP DIV s; 

II l=CHR(I+ORD(=fi = )) ; JJ 1= CHR(J + ORO(=0 = >); KK t = CHR (K+GRDOOEJ ) 

• OUTCH(EOL); WRITE (BLANK) J 
IF GC < 5 THEN 

case cc of 

# pi if op = 3 then 

begin outchuxiii]) ; outch ( jx2cu ) ; outch<= em 
space; outchcexem outchujh outch<e,=); 

# write(k j 6 oct) j 

ENO ELSE 

begin outch(jbitopl) ? outch (jb2iqp)) ; outchce e) ; 

# space; 

if op > 3 then 

begin outchiebe); outch(ii); outch <r£l£opj ) ? 

# outch(Ese); outch(jj); outch(E,e); writeck i 6 §ct)? 

ENO ELSE 

BEGIN IF OP = 2 THEN 

• BEGIN OUTCH (EBE) ? OUTCH(II) ? OUTCH(E+E) ENO ; 

WRITE (K t 6 OCT) 

end; 

# end c o * ; 

11 BEGIN OUTCH(=B = )| OUTCH(EXE); OUTCH(II); SPACE; 

IF OP > 11 THEN 

• BEGIN OUTCH(E^E); II 1= JJJ JJ »= KK; KK 1= II END? 

OUTCH (EXE)| OUTCH* JJ); 

C *= OP MOD if? 

• IF C M THEN 

BEGIN 0UTCH(R£L[C1) J OUTCH(EXE); OUTCH(KK) END; 
END & 1 *■ J 

# 2* begin outch(shtopj) ; outch(exe); outch(ii); space? 

if op < 13 then 

begin outch(jj); outch(kk) eno else 

# begin 0utcke3e); outch(jj); outch ( = ,=); 

outch (eke); outch (kk); 
end; 

# END i» 2 * 5 

31 begin outch(sh[op dm 23)? outch(exe); outch(ii)? 

space; outch<ex=)i outchuj)| 

# if odd(op) then outch(e-e) else outch (e+e) ; 

qutch(Sxe)! outch<kk); 

END <* 3 * ; 

# hi BEGIN C 1= OP MOD k ; 

IF OP = 33 THEN 

BEGIN OUTCH(ENE); OUTCH(EOE) END ELSE 

# IF C = 3 THEN 

BEGIN IF OP = 35 THEN OUTCH(EME) ELSE OUTCH(ECE); 
OUTCH (EXE); OUTCH (II); space; 

# if op = 35 then outch(jj) else outch(exe) j 

outch(kk) ; 

END ELSE 

# BEGIN OUTCH(FStCl)| OUTCH(EXE)? QUTCH(II)} 

space; outch(exe); outch(jj); 

if op < 36 then outch(e*e) else cutch(e/e)? 

9 outch(eme)| outch(kk)? 

end; 






• 



END f *♦ * ; 
END r> CASE * ELSE 
OEGlN 

outch<=s = ); outch(fs£ccj) j outch(ii); 
space; outchcricc]) ; outchcjj); 

IF C IN [5,7] THEN OUTCH<=-=) ELSE 0UTCH<=+=) 

if c < 2 then writeck » 6 oct) else 
begin 0utch(=8e)j outch(kk) end? 
end; 



• 



UNTIL S > 6Q; 

end; 

IC i= IC + CA + 1 

end i» prtcomp * ; 



OUTCHCEOL) 



PROCEDURE PRJMPTAB ? 
*• PRINTS OUT JUMPTAB. 
LOAOPOINT OF JMPTAB IN PARHLIST.LPJMPTAB * 
VAR I I SHRTINTJ 
BEGIN IF JMPIX > 9 THEN WRITE (EOL , = IS ,EOL) ; 
FOR I «= C TO JMPIX - 1 DO 

WRITER =,PARMLIST.LPJMPTAB+I*6 OCT,= E, JMPTA8U 1 t2fl 
END f»PRJMPTAB+ J 



# 

# 



OCT, EOL) 



PROCEDURE WRITOUT J 
*»CALLEO AT PROCEDURE ENO, UPDATING ITS CODE (INSERTING ADDRESSES 
OF CONSTANTS) AND WRITING OUT CODE TOGETHER WITH THE CONSTANTS 
USED IN THIS PROCEDURE* 

# VAR IT2 I SHRTINT; 
BEGIN 

NOOP J CODEtCAl S= 8UF ; 

# FOR IT 1= 1 TO LCX DO 
WITH GSTTBCIT] DO 
BEGIN 

# CA 1= CA + 1| 

IF CA > CODMAX THEN 
BEGIN ERROR (90) I CA 

# BEGIN 

CODE CCA] l» VALU 
REPEAT 

# WITH UN0LA8IIT11 DO 

BEGIN INS(IC,LFTSH, PLACE) 

UNTIL IT1 a ? 

# UNOLABEIT2J.SUCC 1 = CHNIX | 



# 
# 






1= 1 END ELSE 
; IT1 i= INX i 



IT2 1= IT! 



IT1 1= SUCC END 



CHNIX 1= INX 
ENO 
END ; 
FOR IT 1= 1 TO CA 

BEGIN PASCLGOt 1= 
IF PRCODE THEN 
BEGIN 

IC 1= IC - LCX 
FOR IT *= 1 TO 
BEGIN 

CA 1= CA+1 
IC t= IC + 1 
ENO ; 

IF "EOLFLAS THEN 
WRITE (<= E)tCHCNT+8) 
END 
END <* WRITOUT * ; 



IC i= IC + i 



DO 

cooEtin 



; CA 1= CA 
LCX DO 



PUT(PASCLGO) END 



- LCX 



PRTCOMP 



WRIT£<= =,ICI6 OCT,= = ,COO£CCA ] *28 OCT, EOL) 5 



PROCEDURE MULGPT(VAL* SHRTINT 5 VAR EXPl,£XP2t SHRTINT; VAR OPTtOPTPWR) ; 
^MULOPT DECIDES IF VAL = 2»»EXP1 t OPT = PUREP 



= 2**EXPl*(2**EXP2+l) I OPT = POSP 
W = 2*»EXPl»C2»»EXP2-i). * OPT = NEGP 

OTHER I OPT = NOOPT 

VAR E1,E2 t SHRTINT; 

• BEGIN EXP1 1= ; £<XP2 t= J 

IF VAL > THEN 
BEGIN El t= 0! 

• WHILE ^ODD(VAL) 00 

BEGIN VAL *= VAL DIV 2J El t- El + i ENO? 
IF VAL = 1 THEN 

• BEGIN OPT 1= PJREP; EXP1 1= El END ELSE 
BEGIN VAL 1= VAL OIV 2? E2 » = 1? 

IF OOO(VAL) THEN 

• BEGIN 

REPEAT VAL 1 = VAL DIV Z\ E2 %- E2 + 1J 
UNTIL -000(VAL)| 

• IF VAL > THEN OPT *= NOOPT ELSE 

BEGIN OPT 1= NEGP; 

EXP2 »= E2? EXP1 1= Ei; 

# end; 

END ELSE 
BEGIN 

• REPEAT VAL X- VAL DIV Z\ E2 t= E2 + ij 

UNTIL ODD (VAL J ; 

IF VAL > 1 THEN OPT := NOOPT ELSE 

• BEGIN OPT i= POSP? 

EXP2 * = E2? EXP1 1= £i; 
END? 

• END? 

end; 

END ELSE OPT t= NOOPT? 

• END *MULOPT + ; 

FUNCTION L0G2PLUSKVAL I INTEGER) I INTEGER J 

• VAR £ J SHRTINT ? 
BEGIN E I- ; 

REPEAT VAL t= VAL DIV 2 | E 1= E + 1 

• UNTIL VAL = Q ; 
L0G2PLUS1 1= E 

END fL0G2PLUSl+ J 



• 



• 



PROCEDURE SKIPCFNO 1 SHRTINT) ; 
BEGIN 

WHILE (ERRCLCN03 = IRRELSY) MFNO t NO) DO 
IF (NO = 38)a(CL = 2) THEN (•RECORD* 
BEGIN REPEAT INSYMBOL? SKIP(<*9); 
UNTIL ^(NO IN U6,26J) 5 
IF NO = 22 THEN INSYMBOL ; 
END ELSE INSYMBOL; 
END t* SKIP + ; 






PROCEDURE PACKANDNORMCFRP i RG3) ; 

BEGIN G£N15<27B,FRP»G,FRP) j GEN15 (2*»B,FRP,Q , FRP) END ; 

PROCEDURE JUHPTO(FAQR i ADDRESS) ; 

BEGIN NOOP ; GEN30(71B, 7,i3,IC+l) J GEN30 ( G<*B ,0 ,0 ,FADR) END ; 

PROCEDURE LDCSTCFVAL t INTEGER) J 
r» ENTERS CONSTANT fclTH VALUE FVAL INTO CONST ANTTABLE CSTT8 IFF 

NOT VET PRESENT, ELSE CHAINS OCCURRENCES OF FVAL IN CODE 

(THROUGH, UNDLAB) + 

VAR IT I SHRTINT^ 
BEGIN 

RP t= RP + 1 ; IF RP = 6 THEN ERR0R(33) ; 



SEN30(5iB,RP,Q,0) ', 
FOR IT 1= 1 TO LGX 00 
WITH OiT TBtlT J 00 
IF VALJ = FVAL THEN 
BEGIN 

IF CHNIX a THEN ERR0R<75) ELSE 
BEGIN 

WITH UNDLA8CCHNIX] DO 
BEGIN 

iti 1= succ ; succ i* inx ; 

INX »= CHNIX J PLACE * = CA J LFTSH t= CP 
£N0 ; 
CHNIX 1= ITi 

END ; 

GOTO 10 
END ; 

IF LCX = CSTMAX THEN BEGIN ERRORCS**) J GOTO 10 END 
IF CHNIX = fl THEN BEGIN ERR0RC75) ; SOTO 10 END J 
LCX «= LCX + i J 






• 


WITH CSTTBtLCXI 00 




BEGIN VALU 1= FVAL % INX t= CHNIX END 


it 


WITH UNDLA8ICHNIM3 DO 


• 


BEGIN ITI *= SUCC ? SUCC * = J PLACE 




CHNIX i= ITI ; 



J= CA J LFTSH 1= CP END J 



# 



• 



• 
• 

• 



# 
# 



• 



• 



UlcNU t* LUOST * ? 

PROCEDURE MULTCODE(FRP i RG3) ? 

(•GENERATES CODE FOR REAL MULTIPLICATIONt ASSUMING FIRST OPERAND 
IN X-RP, THE OTHER IN X-FRP? RESULT IN X-RP+ 
BEGIN IF ROUNDING THEN GEN15 U18,RP,RP,FRP) 

ELSE GEN15(h3B,RP,RP,FRP) 
END r*MULTCODE + ; 



PROCEDURE CHECKBNOStFRP! RG3 5 FMIN,FMAX* INTEGER? FAORl ADORESS) 
fDONET USE WITH FRP IN £0,7J* 

# BEGIN GEN30(71B, 7,0, IC) ? 

IF FHIN * THEN 

BEGIN IF ABS(FHIN) > TWOT017 THEN LDCST(FMIN) ELSE 

# BEGIN RP 1= RP + i ; GEN30(71B,RP,0,FHIN) END ? 
GEN15 (378,0, FRP, RP) ; RP 1= RP - 1 ? 

END ? 

# IF ABS(FMAX) > TW0T017 THEN LDCST(FHAX) ELSE 
BEGIN RP 1= RP + 1 J GEN30(71B,RP,G,FMAX) END ; 
GEN15(37B,RP,RP,FRP) ? 

# IF FMIN t THEN GEN15 (128 ,0 , RP,0) ELSE GEN15U2B ,0 ,RP,FRP) ; 
GEN30 (03B,3,G,FADR) ? RP I = RP - 1 ? 



END «»CH£CKBNDS + 



PROCEDURE L0AD3ASE(FRP, FLEVEL * RG3) 5 
VAR I I SHRTINT ', 

• BEGIN GEN15(56B,FRP,5,0) 5 

FOR I Is 1 TO LEVEL - FLEVEL - 1 DO GEN15(538,FRP,FRP, 0) ? 
END (♦LOADBASE* ? 

PROCEDURE TRANSFERER FATTR I ATTR ? FRP I SHRTINT) ? 

.♦DEPENDING ON THE VALUE OF FRP, TRANSFER GENERATES CODE FOR EITHER 

• LOADING THE EXPRESSION DESCRIBED BY FATTR INTO REGISTER X-FRP 

OR FOR STORING X-FRP AT LOCATION DESCRIBED BY FATTR (TAKING INTO 
ACCOUNT COC 6uGG HARDWARE FEATURES)* 

• VAR LRP, REG I SHRTINT? AT t ADDRESS? 8T I BOOLEAN? 
BEGIN WITH FATTR DO 

IF TYPTR t NIL THEN 

# CASE KIND OF 

VARBLt BEGIN IF (FRP > 5) *PCKD THEN 

BEGIN PCKO 1= FALSE ? TRANSFER (FATTR, 1) ? 

# IT 1= BITADR + 8ITSZ ? BT 1= IT t WOROLENGTH ? 

IF BT THEN GENiS (288,1,0 , IT) ? 
GENi5U3B,0,Q,WQROlENGTH-8ITSZ) ? GENi5(liB,l,fl ,1) ? 

# G£N15(158,FRP,FRP,0) ? GEN15 (128 , FRP, FRP, 1) ? 

IF BT THEN GEN15 ( 208, FRP, G , WORDLENGTH-IT) ? 
GEN15(5%B,FRP,l lf 0) 

• END ELSE 

BEGIN LRP i- FRP $ 

IF ACCESS = ORCT THEN 

# BEGIN IF FRP < 5 THEN 

BEGIN RP 1= RP + i ? LRP 1= RP END ELSE 
IF FRP = 5 THEN £RR0R(33) ? 

• IF BREG IN £0, LEVEL] THEN 

BEGIN IF BREG t Q THEN REG 1= 5 ELSE REG 1= ? 
GEN30(51B,LRP,REG,DPLMn ? 

• END ELSE 

BEGIN LOA08AS£(5,BREG) ? GEN3Q (52B,LRP,5, OPLHT) END 
END ELSE 

# IF ACCESS = INXD THEN 

BEGIN IF 8REG IN £0, LEVEL] THEN 

8EGIN IF 3REG t 8 THEN REG 1= 5 ELSE REG 1= ? 

# IF OPLHT = C THEN GEN1S(53B, LRP, RP, REG) ELSE 

BEGIN IF REG ~ THEN GEN30 (52B ,LRP,RP, OPLMT) ELSE 






• 



BEGIN 3EN30(62B,7,RP,DPLMT) ', 

GEN15(56B,LRP,7,5) 
£N0 
ENO 
END ELSE 
BEGIN GEN30(62B,7,RP,OPLMT) ,' 

L0AOBASE(5,BREG) ? GEN15 (53B ,LRP,5,7) 
ENO 



ENO ELSE 
BEGIN IF 



OPLMT = 



• 



END ; 

IF PCKO THEN 
BEGIN IF MASK THEN 
BEGIN IF BITAOR 



THEN GEN15<53B,LRP,RP,0) 
ELSE GEN3G(52B,LRP,RP,DPLMT) 



THEN 



• 
• 



# 



• 
• 



+ BITSZ t WORDLENGTH 
GEN15(203,LRP,O,8ITADR+BITSZ) % 
3ENi5<43B»0,Q,WOROLENSTH-8ITSZ) J 
GEN15<158,LRP,LRP,0) 
END ELSE 
BEGIN IF BITAOR t THEN GEN15 <28B, LRP, , BITAOR) J 

G£N15(2i8 f LRP,0,WOROL£NGTH-BITSZ) 
END | 

PCKO «= FALSE 
END 5 
ENO 
ENO ; 
SVAL t BEGIN IF FRP < 5 THEN 

BEGIN RP 4 = RP ♦ 1 ; LRP J= RP END ELSE 

IF FRP > 5 THEN LRP *= FRP ELSE ERR0RC33) ; 

IF VAL = THEN SENi5<13B,LRP,0 ,0) 

ELSE G£N3fH718,LRP,Q,VAL) 
END ; 
LVAL J BEGIN IF CTERM * THEN 

BEGIN GEN30C71B, 3,0, CTERM) ; GEN15 <36B,FRP, RP,9) ENO ELSE 
IF RP t FRP THEN BXIXJ (FRP,RP) 
END ; 
LCONOS BEGIN IF ARITH THEN 

BEGIN IF JMP < i THEN 

BEGIN G£Ni5(^3a f FRP,0,0) 5 AT 1= IC + 1 | 

3EN3Q<03B,JMP,Q,AT) J GEN30 (718 ,FRP,Q ,1) ? NOOP % 
END ELSE 
BEGIN GEN15 (438,0,0,1) | 

IF JMP = 2 THEN GEN15 (1 IB, FRP, ,RP) 

ELSE G£Ni5(153,FRP,0,RP) J 
GEN15*2G3,FRP,0,i) 
END 
ENO ELSE 
BEGIN IF JMP t THEN 

BEGIN GENi5(if3B,a,a,59) J GEN15( 178, FRP, ,RP) END ELSE 
IF RP t FRP THEN 8XIXJ(FRP,RP) 
ENO 
END 
ENO eCASE KIND* 
ENO ^TRANSFER* J 

PROCEDURE LOADAOR (FATTR t ATTR ? FRP I SHRTINT) J 

^GENERATES CODE FOR LOADING THE ADDRESS OF THE VARIABLE DESCRIBED 
8Y FATTR INTO X-FRP* 
VAR REG t SHRTINT 4 
BEGIN WITH FATTR DO 
IF TYPTR t NIL THEN 
IF PCKO THEN ERR0RC87) ELSE 
CASE ACCESS OF 
ORCT » IF BREG IN [t, LEVEL) THEN 

BEGIN IF 3REG t THEN REG »= 5 ELSE REG *= C ? 
GEN3U 7J.B-, FRP , REG , D PL MT ) 



• 



END ELSE 

# 8EGIN L0ADBASE(5,BREG) ? G£N30( 72B, FRP,5,DPLMT) END ; 
iNDRCfJ IP UPLHT t THEN G£N3i3(72&,FRP,RP, DPLMT) ELSE 

IF RP # FRP THEN 8XIX J (FRP,RP) ; 

# INXD I IF BREG IN CO, LEVEL! THEN 

BEGIN IF 8REG t THEN REG != 5 ELSE REG 1= G 5 
IF DPLMT = THEN GEN15 (73B,FRP,RP,REG) ELSE 

# BEGIN IF REG = 3 THEN GEN30 (72B, FRF, RP, DPLMT) ELSE 

BEGIN GEN3Q(628,7,RP,DPLMT) J GEN15(763,FRP,7, 5) END % 
ENO 

# ENO ELSE 

BEGIN GEN3G(62B,7,RP,DPLMT) ? 

L0ADaAS£(5,3REG) J GEN15 (733, FRP, 5 ,7) 

# END ; 
END 

END «»LOADAOR+ \ 
# 

PROCEOURE GENJP(FJPADOR I ADDRESS) ? 
1- ACCORDING TO THE GLOBAL ATTRIBUTE RECORD GATTR (DEFINING AN 

# EXPRESSION), THIS PROCEDURE PERFORMS CODE GENERATION FOR A 
CONDITIONAL JUMP (ADDRESS = FJPAODR), DEPENDING ON THE TRUTH 
VALUE OF THE (NECESSARILY) BOOLEAN EXPRESSION * 

# BEGIN 

WITH GATTR DO 

IF TYPTR t 300LPTR THEN ERROR(57) ELSE 

# BEGIN 

IF KIND < SVAL THEN TRANSFER(GATTR, RP) ? 
IF KIND = LCOND THEN 

# IF (JMF < i) * ARITH THEN GEN30 ( Q3B , JMP,0 ,F JPADDR) ELSE 

GEN30 (S3B,JMP,1,FJPA00R) 

ELSE GEN3S(fl3a,C,RP,FJPADDR) 

# END 

END i» GENJP * ; 

# PROCEDURE ADDR£SSVAR(FCTP I CTP ; VAR FATTR I ATTR) % 
^GENERATES CODE TO ADDRESS THE QUANTITY MITH CTPTR * FCTP AND 

BUILDS UP ITS ATTRIBUTES IN FATTR+ 

# BEGIN WITH FCTP*, FATTR DO 

BEGIN KIND *= VARBL J 
IF KLASS = VARS THEN 

# BEGIN TYPTR « = VTYPE J PCKD 1= FALSE ', 

IF VKINC = ACTUAL THEN 

BEGIN ACCESS *= DRCT | DPLMT 1= VADDR I BREG 1= VLEVEL ? 

# END ELSE 

BEGIN RP 1= RP + i ; IF RP = 6 THEN ERROR (33) ? 

IF VLEVEL = LEVEL THEN GEN3Q (513, RP,5 , VADDR) ELSE 

# BEGIN LOADBASE(RP, VLEVEL) I GEN30 (52B ,RP,RP, VADDR) ENO 9 
ACCESS 1 = INORCT J DPLMT 1= ? 

END J 

# END ELSE 

IF KLASS * FIELD THEN 
BEGIN TYPTR != FLDTYPE | 

# WITH DISPLAYIDTSXJ DO 
BEGIN IF OCCUR = GHITH THEN 

BEGIN ACCESS := DRCT ; BREG » = CLEV ? DPLMT 1= FLDADOR «• COSPL 

# END ELSE 

BEGIN RP 1= RP + 1 ; IF RP = 6 THEN ERROR133) | 
GEN3y (51B,RP,5,VDSPL) J 

# ACCESS 1= INDRCT J DPLMT *= FLOADDR ; 
ENO ? 

IF BITWIDTH t C THEN 

# BEGIN PCKD 1= TRUE ; BITADR 1 = BITDISPL J BITSZ I* 8ITW10TH % 

MASK 1= (TYPTR*. FORM = SYMBOLIC)* 

((TYPTR*. FORM = NUMERIC) a(TYPTR*.MIN > fl)) \ 

# END ELSE PCKD ** FALSE 
END 






# 

m 



ENO ELSE 

BEGIN TYPTR != PROCTYPE ? ACCESS 1= ORCT ? BREG » = PROCLEVEL ♦ i 

upLfir * = z ; pckd i= false ; 

IF PROCKIND = FORMAL THEN ERROROi) ELSE 
IF LEVEL t BREG THEN ERR0R<85) 
ENO 
ENO r*WlTH FCTPt, FATTR* ; 
ENO i*ADDRESSVAR + J 



PROCEDURE STATEMENT J FORWARD 5 
PROCEDURE EXPRESSION ; FORWARD J 
PROCEDURE PASSPARAMS ; FORWARD ; 



PROCEDURE VARIABLE 5 

# VAR LATTR I ATTR J 

BEGIN ADDRESSVARCCTPTR, LATTR) ; 
INSYMBOL ? 

# WHILE NO IN [11,17,131 DO <•[,.,* + 
IF NO = 11 THEN .♦£* 

BEGIN 

# REPEAT WITH LATTR DO 

IF TYPTR * NIL THEN 

IF TYPTR*. FORM * ARRAYS THEN 

# BEGIN ERR0R(34) J TYPTR 1= NIL END ? 
INSYMBOL 5 EXPRESSION f 

IF GATTR. TYPTR t NIL THEN 

# BEGIN IF GATTR, TYPTR*. FORM > SYMBOLIC THEN ERRORC35) I 

IF LATTR. TYPTR t NIL THEN 

BEGIN PT 1= LATTR. TYPTR*. INXTYPE » 

# IF ((GATTR, TYPTR*. FORM = SYMBOLIC) v (PT*. FORM - SYMBOLIC))* 

(GATTR. TYPTR t PT) THEN £RR0R<36) ? 

WITH GATTR DO 

# IF KINO = SVAL THEN 

BEGIN IF (LATTR. TYPTR*. LO > VAL) v(L ATTR. TYPTR*. HI < VAL) 
THEN ERR0RO9) ; 

# IT 1= VAL 

END ELSE 

IF KIND = LVAL THEN IT := CTERM ELSE 

# BEGIN TRANSFER(GATTR,RP) J IT 1= ENO ; 

WITH LATTR, TYPTR* DO 

BEGIN DPLMT X- DPLMT + (IT - LO) *AELTYP£*.SIZE 5 

# IF GATTR. KINO t SVAL THEN 

BEGIN IF INXCHECK THEN CH£CK3NDS( RP,LO-IT, HI-IT, INXERR) 
IF OPTTYP = NOOPT THEN 

# BEGIN GEN30(71B,6,Q,AELTYP£*.SIZE) % 

GEN15(*»2B,RP,RP,6) 
ENO ELSE 
W BEGIN IF EXP1 * 3 THEN GEN15 (20B ,RP,C ,EXP1) J 

IF OPTTYP t PUREP THEN 
BEGIN GEN15(10B,Q,RP,a) % GEN15 (208, RP ,0 ,£XP2) 9 

# IF OPTTYP = POSP THEN SEN15 (368,RP,RP,0) 

ELSE GEN15(37B,RP,RP,Q) 
END 

# END ; 

IF ACCESS = ORCT THEN ACCESS 1 = INXO ELSE 
BEGIN RP la RP - i J GEN15<368,RP,RP,RP+i) END 

# END 

END J 

END i»IF LATTR. TYPTR * NIL* 

# END .»IF GATTR. TYPTR t NIL* J 
IF LATTR. TYPTR t HIL THEN LATTR. TYPTR t = L ATTR.T YPTR*. AELTYPE 



UNTIL NO t 15 f,* ? 
% IF NO t 12 THEN <• ] * ERROR(37) ELSE INSYMBOL 

tNO .*1F NO = 11* ci.SE 
IF NO = 17 THEN r».* 

# BEGIN INSYMBOL ? 

IF NO = 1 THEN. !»ID* 

BEGIN IF LATTR.TYPTR t NIL THEN 

# BEGIN IF LATTR.TYPTR*. FORM = RECOROS THEN 

WITH LATTR DO 

BEGIN SRCHREC (TYPTR*. FSTFLD) J 

# IF CTPTR = NIL THEN 

BEGIN ERROR(39) J LATTR.TYPTR 1= NIL END ELSE 
WITH CTPTR* 00 

# BEGIN TYPTR *= FLOTYPE % OPLMT 1= OPLMT + FLDADOR ; 

IF BITWIOTH t THEN 

BEGIN BITADR I- 8ITDISPL ; BITSZ 1= BITWIDTH ', 

# MASK »= (TYPTR*. FORM = SYM30LIC)v 

{(TYPTR*. FORM = NUMERIC) a<TYPTR*.MIN > CI) 
PCKD 1= TRUE 

# END ELSE PCKD t= FALSE 

ENO 

END ELSE 

# BEGIN ERR0R(38) ? LATTR.TYPTR * = NIL ENO ? 
END ; 

INSYMBOL 

# END ELSE 

BEGIN ERR0RU1) J LATTR.TYPTR t= NIL END 
END fIF NO = 17* ELSE r»** 

# BEGIN WITH LATTR DO 

IF TYPTR t NIL THEN 

BEGIN TRANSFER(LATTR,RP) J ACCESS »= INDRCT ? DPLMT 1= J 

# IF TYPTR*. FORM = FILES THEN TYPTR 1= TYPTR*. FELTYPE ELSE 
IF TYPTR*. FORM = POINTER THEN TYPTR t= TYPTR*. ELTYPE ELSE 
BEGIN EKROR(<tO» > TYPTR 1= NIL ENO 

# END ; 
INSYMBOL 

END <♦** J 

# GATTR «= LATTR 
END .♦VARIABLE* ? 

# PROCEDURE FACTOR J 

VAR LATTR i ATTR f LPTR » CTP ; LRP, LB6 1 SHRTINT | 
AT i ADDRESS? LPSVAL, IT2 t INTEGER; 

w 

PROCEDURE ELEMENT 5 

i»WORKS UP THE NEXT ELEMENT IN THE SET 8EEING ANALYSED* 

# BEGIN 

EXPRESSION 5 

IF GATTR. TYPTR t NIL THEN 

# IF GATTR. TYPTR*. FORM > SYMBOLIC THEN ERROR C35) ELSE 

IF (GATTR. TYPTR = REALPTR) v (GATTR. TYPTR - ALFAPTR) THEN 
ERROR (62) ELSE 

# BEGIN IF LATTR.TYPTR t NIL THEN 

IF ((LATTR. TYPTR*. FORM t NUMERIC) *< GATTR. TYPTR*. FORM t 
NUMERIC)) MLATTR. TYPTR t GATTR. TYPTR) THEN ERR0RC73) J 

# LATTR.TYPTR *= GATTR. TYPTR J 

IF GATTR. KINO - SVAL THEN INSERT (1»GATTR. VAL , LPS VAL) ELSE 
BEGIN TRANSFER(GATTR, RP) J GEN15 <63B,7,RP,0) ? 

# IF LATTR. KINO = SVAL THEN 

BEGIN GEN3SC71B, RP,3,1) I G£N15(22B,RP ,7 ,RP) J 
LATTR. KINO »= LVAL ? LATTR. CTERM 1 = 

# END ELSE 

BEGIN GEN3Q<71B,fi,a,l) J GEN15 (22B,0 , 7 ,0) I 
RP i= RP - 1 ? GEN15(12B,RP,RP,0) ? 

# ENO 
END 



• 



• 

• 
* 
• 



END i»ELtMENT* J 

3EGIN IF NO = 1 THEN ^IDENTIFIER* 

# BEGIN SEARCH ? 

IF CTPTR = NIL THEN 

BEGIN ERROR(3i) J CTPTR 1= JNDECPTR END ; 

# CASE CTPTRt.KLASS OF 

TYPES: BEGIN ERROR(<+5) ; GATTR.TYPTR t= NIL J INSYMBOL END ; 
KONSTt WITH GATTR, CTPTRt DO 

# BEGIN TYPTR 1 = CONTYPE ? 

IF ABS(VALUES) > TWOT017 THEN 

BEGIN LDCSTCVALUES) 1 KIND i= LVAL ; CTERM 1= ENO ELSE 

# BEGIN KIND »= SVAL J VAL t= VALUES END? 
INSYMBOL 

END ; 

# PROC I BEGIN INSYMBOL 5 

IF (CTPTR*. PROCTYPE = NIL) v<CTPTR*.PROCTYPE = CTPTR) THEN 
BEGIN ERR0RU6) ; GATTR.TYPTR t= NIL END ELSE 

# IF NO t 9 THEN »•< + 

BEGIN ERR0R(79) ? GATTR.TYPTR t= NIL END ELSE 

IF CTPTR < PREDEFP THEN r»**INLINE FCT*** 

# BEGIN LPTR » = CTPTR 5 INSYMBOL ? EXPRESSION ; 

IF GATTR.TYPTR t NIL THEN 
CASE LPTRf.SEGSIZE OF 

# «»ODD* 11 BEGIN IF GATTR. TYPTR*. FORM t NUMERIC THEN ERR0R(<*7) ; 

TRANSFER(GATTR,RP) J 

IF GATTR.TYPTR*. MIN > THEN GEN15 (203, RP, ,59) ELSE 

# BEGIN GENi5(iaB,0,RP,0) I GEN15 < 2QB,E ,0 , 59) \ 

3ENi5(i3 8,RP f RP,0) J 
END ; 

# WITH GATTR DO 

BEGIN TYPTR := BOOLPTR 5 KIND t= LCOND ; JMP 1= 2 ? 
ARITH 1= TRUE 

# END 

eno ; 
r»ord* 21 begin if gattr. typtr*. form > power then error(^) j 
# gattr.typtr t = intptr 

END J 
i»CHR* 31 BEGIN IF GATTR. TYPTR*. FORM t NUMERIC THEN ERR0R(%7) J 

# IF ASSCHECK THEN 

BEGIN TRANSF£R(GATTR,RP) ? 
WITH GATTR 00 

# BEGIN KIND 1= LVAL ', CTERM *- fl END J 

CHECKBN0S(RP,Q,63,ASSERR) 

END ; 

# GATTR.TYPTR 1= CHARPTR 

END J 

fEOF* i» I BEGIN IF GATTR.TYPTR* . FORM * FILES THEN ERROR(^) J 

# WITH GATTR DO 

BEGIN OPLMT 1= OPLMT + 1 ? TRANSF£R(GATTR,RP) J 
TYPTR J= 300LPTR ? KIND *= LCONO J JMP 1= 2 ? 

# ARITH t= TRUE 

END 

END ? 

# ,»ABS* 51 BEGIN IF (GATTR.TYPTR * RE ALPTR) a (GATTR. TYPTR*.FORM t 

NUMERIC) THEN £RROR(<*%) J 
TRANSF£R(GATTR,RP) ; G£N15<138, »RP, 0) ? 

# GEN15(21B,G, 0,738) ? SEN15C 138,RP,0 ,RP) 5 

WITH GATTR 00 

BEGIN IF TYPTR t REALPTR THEN TYPTR 1 = INTPTR ; 

# KIND * = LVAL ? CTERM %= Q 

END 

_ END ; 

W fSQR* 61 BEGIN IF (GATTR.TYPTR * REALPTR) a (GATTR.TYPTR*.FORM t 

NUMERIC) THEN ERROR(^) 



• 
# 



m 



TRANSF£R(3ATTR»RP> ? 

# WITH GATTR DO 

dEGlN IF fVPTR = REALPTR THEN MULTCODECRP) ELSE 

BESIN GEN15(**2B,RP,RP,RP) J TYPTR »= INTPTR END ; 

• KIND 1 = LVAL 5 CTERM *= ? 

ENO 

END ; 

• i»TRC + 7« BEGIN IF GATTR. TYPTR * REALPTR THEN ERROR(^) J 

TRANSFER(3ATTR,RP) J 

GEN15(26B,RP,7»RP) ? GEN15 C22B, RP,7,RP) ; 

# 3EN15(13B,G,fl,0) ; GEN15(36B,RP,RP,fl) J 

WITH GATTR DO 

BEGIN TYPTR 1= INTPTR J KIND Is LVAL ? CTERM 1= 9 END 

• END ; 
-PRE* 3, 

•♦SUC* 91 IF (GATTR. TYPTR*. FORM > SYMBOLIC) v (GATTR. TYPTR * 

# REALPTR)v(GATTR.TYPTR = ALFAPTR) THEN 

BEGIN ERROR(^) % GATTR. TYPTR 1= NIL END ELSE 
BEGIN TRANSFERCSATTR, RP) % 

# WITH GATTR. TYPTR* 00 

IF FORM = NUMERIC THEN 

BEGIN IT1 *= MIN ? IT2 l- MAX ENO ELSE 

• BEGIN IT1 1= 8 ; IT2 1= FCONST* . VALUES ENO ? 

IT »= LPTR*.S£SSIZ£ 5 

IF (ABSUT1) > TW0T017)v(ABS(IT2) > TW0T017) THEN 

• BEGIN 3EN30(71B, 0,0,1) ; 

GEN15(**7B-IT, RP,RP,0> ? -368 OR 378 + 
END ELSE 3EN3a<72B,RP,RP,2*IT-17) ? -*i OR -1* 

• IF ASSCHECKa (GATTR. TYPTR t INTPTR) THEN 

CH£CKBNDS(RP,ITi,IT2,ASSERR) ? 

WITH 3ATTR DO 

# BEGIN KINO * = LVAL J CTERM 1= END 

END 

ENO -CASE LPTRt.SEGSIZE OF* ; 

# IF NO * 10 THEN -I * 

BEGIN ERRORU8) i GATTR. TYPTR 1= NIL END ELSE INSYM80L 
END i»IF CTPTR < PREOEFP+ ELSE -♦♦EXTERNAL FCT** + 

# BEGIN FOR IT 1= 1 TO RP DO -♦♦USERQEF. FCT*** 

BEGIN BXIXJ(6,IT> I 6EN3C (51 8,6,5, LC+TCT) J 

TCT 1= TCT + 1 J IF TCT > TMAX THEN TMAX Is TCT ? 

• END ; 

IF CTPTR < EXTPTR THEN - SET BIT TO INFORM MONITOR + 
WITH PARMLIST DO EXTFLAGS t= EXTFLAGSvJCTPTR*. SEGSIZEI ? 

# LRP i= RP % L36 1 = 86DPL ? LPTR l = CTPTR*. PROCTYPE ? 

IF L86 t 3 THEN GEN30 (61B,6,6,L86) ? RP i= J 
PASSPARAMS ? 

• IF LB6 t 3 THEN GEM30 (618,6, 6,-LB6) ? 

B6DPL .Is L86 % 

FOR IT X- LRP DOWNTO 1 DO 

# BEGIN TCT i= TCT - 1 J GEN30 (518, IT ,5,LC*TCT) END ; 

IF LRP s 5 THEN ERROR(33) ELSE 

BEGIN RP «= LRP * 1 ? 

• IF LB6 = 3 THEN IT t= 2 ELSE IT J= L86 * 2 ? 

GEN3li(518,RP,6,IT) % 

END ; 

• WITH GATTR DO 

BEGIN TYPTR 1= LPTR ? KIND 1= LVAL ? CTERM 1= ENO 
END 

# END ; 
VARS , 

FIELD i VARIABLE % 
% ENO -CASE CTPTR*. KLASS OF* J 

END -IF NO = 1* ELSE 

IF NO = 2 THEN -CONSTANT* 

% BEGIN WITH GATTR DO 

BEGIN IF AaS(IVAL) > TW0T017 THEN 



LDCSTUVAL) ; 
t= SVAL ; 



KIND 
VAL 



i= LVAL 
1= IVAL 



J CTERM 
END ; 



1= END ELSE 



• 



• 






1 = 
l = 
J = 
t = 



INTPTR 

REALPTR 

ALFAPTR 

CHARPTR 



= 2 + 
THEN 
GATTR 
1 = 



ELSE 

DO 
NILPTR 



FACTOR 



5 KINO »= SVAL 5 VAL i= NILVAL END 



1= 1 - JMP ELSE JMP t= 5 - JMP 



BEGIN 

BEGIN KIND 
CASE CL OF 
1* TYPTR 
21 TYPTR 
3* TYPTR 
<+l TYPTR 
END ; 
END ; 

INSYMBOL ! 
END fIF NO 

IF NO = 36 THEN #NIL* 

BEGIN WITH 
BEGIN TYPTR 
INSYMBOL 
END ELSE 
IF NO = 5 THEN 
BEGIN INSYMBOL ,' 
WITH GATTR DO 
IF TYPTR t NIL THEN 
IF TYPTR = BOOLPTR THEN 
BEGIN IF KIND - LCOND THEN 
BEGIN IF JMP < i THEN JMP 
END ELSE 
BEGIN TRANSFER4GATTR,RP) ; GEN15 U33,0, Q ,59) ; 

G£N15(178,RP,0,RP) J KIND 1= LVAL ? CTERM 1= 
END 
END ELSE ERROR<53) 
END fIF NO = 5* ELSE 

IF NO = 9 THEN m < * 

BEGIN INSYMBOL ? EXPRESSION ; 
IF NO t 10 THEN *♦) * 

BEGIN ERROR (*»8) | GATTR. TYPTR i= NIL END ELSE INSYMBOL 
END ELSE 

IF NO = 11 THEN I * 

BEGIN INSYMBOL ? 

IF NO = 12 THEN »»] + 

WITH GATTR DO 

BEGIN TYPTR 1= LAMPTR ? 

VAL *= Ci | INSYMBOL 
END ELSE 
BEGIN WITH LATTR DO 

BEGIN TYPTR 1= NIL ? KIND 

ELEMENT ? 

WHILE NO = 15 DO <• , + 

BEGIN INSYMBOL 5 ELEMENT END J 

IF LPSVAL t 3 THEN 

IF LPSVAL > TWOT017 THEN 

BEGIN LDCST(LPSVAL) J 

IF LATTR. KINO = LVAL THEN 

BEGIN RP 1= RP - 1 J GEN15(12B,RP,RP,RP+1) END ELSE 
LATTR. KIND 1= LVAL ? LATTR. CTERM t= 
END ELSE 

IF LATTR.KINO = SVAL THEN LATTR. VAL »* LPSVAL ELSE 
BEGIN GEN30(713, 0,0, LPSVAL) ; GEN15 (123 ,RP,RP,fl) END J 
IF LATTR. TYPTR t NIL THEN 

IF LATTR. TYPTR*. FORM = NUMERIC THEN LATTR. TYPTR f= PNUMPTR 
ELSE LATTR. TYPTR t= LATTR. TYPTR* .PWSET ? 
IF NO t 12 THEN i»] * 

BEGIN ERRGR(37) I LATTR. TYPTR \- NIL END ELSE INSYMBOL ; 
GATTR \- LATTR 
END ; 
END i»IF NO = 11+ ELSE 

BEGIN ERROR(i*2) ? GATTR. TYPTR *= NIL END 
END ^FACTOR* ? 



# 



KINO i= SVAL 



*= SVAL END J LPSVAL 1= ? 



• 



• 
# 



PROCEDURE TERtf ? 

# VAR LATTR t ATTR J AT t AODRESS ; BTi , 8T2 , 8T3 ,8T*+ 1 BOOLEAN ; 

LExPi, LEXH2, lHOPCl I SHRTINT ; LOPT I GPTPHR J 
PROCEOURE CHECK0IV(FRP I RG3) J 

# *»OON=T USE WITH FRP = 7* 
BEGIN IF GATTR. KINO = SVAL THEN 

BEGIN IF GATTR. VAL = THEN ERROR(102) ? 

# END ELSE 

IF OIVCHECK THEN 

BEGIN GEN3G <71B,7,G, IC) % GEN3Q (C 3B,Q , FRP, DI VERR) END ? 

# END fOIVCHECK* ? 
BEGIN FACTOR ? 

IF NO = 6 THEN r»MULOP+ 

# BEGIN LOPT »= NOOPT; 

IF (GATTR.KINO = SVAL) MCL = i) THEN 
MULOPT( GATTR. VAL,LEXPi,L£XP2, LOPT) J 

# IF LOPT - NOOPT THEN 
BEGIN TRANSFER (GATTR, RP) ? 

WITH LATTR DO 

# BEGIN TYPTR l- GATTR.TYPTR J KIND i= LVAL ? CTERM 1= ENO J 
END ELSE LATTR t= GATTR I 

REPEAT LHOPCL I- CL J INSYHBOL » FACTOR ? 

# IF (LATTR. TYPTR * NIL) * (GATTR.TYPTR t NIL) THEN 
BEGIN CASE LMOPCL OF 

<* * + II BEGIN 8T1 1= LATTR. TYPTR*. FORM = NUMERIC ? 

# BT2 *= GATTR. TYPTR*. FORM = NUMERIC 5 

8T3 J= LATTR. TYPTR = REALPTR ; 

BT^ 1 = GATTR.TYPTR = REALPTR J 

# IF LOPT t NOOPT THEN 

BEGIN TRAN5FER(GATTR,RP) ? 

IF BT^ THEN 

# BEGIN TRANSF£R(LATTR,RP) ? PACKANDNORM (RP) | 

LATTR. TYPTR *= REALPTR ? 
LOPT «= NOOPT | BT3 1= TRUE J 

# END I 

WITH LATTR 00 

BEGIN KIND 1= LtfAL J CTERM 1= END ; 

# ENO ELSE 

BEGIN IF (GATTR.KINO = SVAL)a-8T3 THEN 
MULOPT (GATTR. VAL,L£XP1 ,LEXP2, LOPT) ? 

# IF LOPT = NOOPT THEN TRANSFER(GATTR, RP) J 

END ; 

IF LOPT = NOOPT THEN BEGIN RP1 1= RP J RP t- RP - 1 END ; 

# IF BT3aBT% THEN MULTCODE (RPi) ELSE 

IF BT1ABT2 THEN 

BEGIN IF LOPT = NOOPT THEN 

# BEGIN GENi5U23,RP,RP,RPi) \ GEN15 <13B,0 ,0 ,3) ; 

G£N15(36B,RP,RP,fl) 
END ELSE 

# BEGIN IF LEXP1 t THEN GENiS (20B,RP,0 ,LEXP1) % 

IF LOPT t PUREP THEN 

BEGIN GEN15(10a,a,RP,a) ? GEN15(20B,RP,0,LEXP2) J 

# IF LOPT = POSP THEN GENi5( 36B , RP,RP,fl) 

ELSE GENi5(37B,RP,RP,0) ? 
END 

# END J 

LATTR. TYPTR 1= INTPTR ? 
END ELSE 

# IF <BTiA3T%)v(3T2A3T3) THEN 

BEGIN IF BTI THEN PACKANONORM(RP) ELSE PACKANDNORMCRPi) ? 
MULTC0DE<RP1) % LATTR. TYPTR 1= REALPTR 
% END ELSE £RR0R(5fl> 

END ; 
t» / * 2J BEGIN TRANSF£R(GATTR»RP) ? 

# IF GATTR.TYPTR*. FORM = NUMERIC THEN 

BEGIN PACKANDNORM(RP) % GATTR.TYPTR 1= REALPTR END 



• 
• 






rp «= rp - l ; 

# IF L4TTR.TYPTRt.F0RM = NUMERIC THEN 

aEblN PAGKANONORfHRPj J LATTR.TYPTR 1= REALPTR END ? 
IF (GATTR. TYPTR = REALPTR) MLATTR. TYPTR = REALPTR) THEN 

# BEGIN CH£CKOIV(RP*i) ; 

IF ROUNDING THEN GEN15 (<*5B,RP , RP, RP+i) 
ELSE GEN15(<t*»B,RP,RP,RP+i) 

# END ELSE ERROR(50) ? 
END J 

t» * + 3: BEGIN TRANSFER (SATTR,RP) ; RP 1 = RP - 1 J 

# IF (LATTR.TYPTR = GATTR. TYPTR) M (LATTR.TYPTR*. FORM = 

POWER) v(LATTR. TYPTR = BOOLPTR) ) THEN GEN15(11B ,RP, RP,RP+1) 
ELSE ERR0RC5G) 

# END ; 

(♦DIV+ ht BEGIN IF GATTR. KINO = SVAL THEN 

MULOPT( GATTR. VAL»LEXPi,LEXP2,L0PT) J 

# IF (LATTR.TYPTRt.FORM = NUMERIC) a (GATTR. TYPTRt. FORM = 

NUMERIC) THEN 

BEGIN IF LOPT = PUREP THEN 

# BEGIN IF LEXP1 t 3 THEN GEN15 (2iB ,RP,0 ,LEXPi) ? 

IF LATTR.TYPTR*. MIN < THEN 

BEGIN GEN15(138,0 ,0,0) J G£N15(36B,RP,RP,Q ) END 

# END ELSE 

BEGIN TRANSFERCGATTR,RP) J CHECKOIV(RP) ? 
PACKANDNORM(RP) J RP 1= RP - i J 

# GEN15(27B,RP,8,RP) J 

GEN15(%^8,RP,RP,RP+1) ? GEN15(268,RP,7,RP) ; 
GEN15(22B,RP,7»RP) 5 GEN15U3B, ,0 ,0) ; 

W G£N15(368,RP,RP,Q) ? 

END ; 
LATTR.TYPTR 1= INTPTR 

# cND ELSE ERROR (50) 
END ; 

.♦MOD* 51 8EGIN IF GATTR. KIND = SVAL THEN 

# MULOPT(GATTR.VAL»L£XPi,L£XP2,L0PT) ; 

IF (LATTR.TYPTRt.FORM = NUMERIC) a(GATTR. TYPTR*. FORM = 
NUMERIC) THEN 

# BEGIN IF LOPT = PUR.EP THEN 

BEGIN GEN15(1SB,3,RP,0) J GEN15(21B,0 ,0 ,LEXPi) ? 
GEN15(20B,S,a,LEXPl) ; GEN15(37B ,RP, RP,0 ) ,' 

# END ELSE 

BEGIN TRANSFER(GATTR,RP) J 

CHECKOIV(RP) I G£N15(27B,6,0,RP) ? GEN15 (2*»8,6 ,C ,6) ; 

# RP1 «= RP ? RP 1= RP - 1 I 

GEN15(27B,0,0»RP) ? G£N15(^<*8,6 , ,6) J 
SEN15(26B f 6,7,6) ; GEN15 (22B,6, 7 ,6) ; 

# GEN15(**2B,6,RP1,6> J GENi5(37B, RP,RP,6) J 

END ; 
LATTR.TYPTR 1= INTPTR 

END ELSE ERROR (50) 
END ; 

END .*CASE LMOPCL OF* 
ENO ; 

LOPT t= NOOPT 
UNTIL NO t 6 ? ^MULOP* 
GATTR 1 = LATTR 
END .*IF NO = 6 + 
END *TERM+ ? 

PROCEDURE SIMFLEEXP % 

VAR LATTR I ATTR % LAOOPCL I SHRTINT ? LFG,BT1,BT2 * BOOLEAN ; 

BEGIN LFG * = FALSE | 

IF NO = 7 THEN <»AOOOP* 

BEGIN IF CL = 2 THEN LFG 1= TRUE ELSE IF CL = 3 THEN ERR0R(5i) I 
INSYMBOL 5 

END ; 






_. TERM 5 

# IF LFGv{NO = 7) THEN 
dtblN WilH LAl TR 00 

BEGIN TYPTR 1= GATTR. TYPTR I KINO t= LVAL J CTERM 1= J 

# IF TYPTR t NIL THEN 

BEGIN TRANSFER(GATTR,RP) J 
IF LFG THEN 

# BEGIN GEN15(13B, 0,0,0) J 

IF (TYPTR*. FORM = NUMERIC) v ( TYPTR = REALPTR) THEN 
G£Ni5(37B,RP,a,RP) ELSE ERROR(50) 

# ENO 
END 

ENO ; 

# WHILE NO = 7 DO 

BEGIN LAOOPCL 1= CL ? INSYMBOL j TERM J 

IF (LATTR.TYPTR t NIL) M GATTR. TYPTR t NIL) THEN 

# BEGIN BT1 *= LATTR. TYPTR*. FORM - NUMERIC ? 

BT2 1= GATTR. TYPTR*. FORM = NUMERIC J 
IF BT1ABT2A (GATTR. KINO = SVAL) THEN 

# BEGIN WITH LATTR 00 

BEGIN TYPTR »= INTPTR ; 
CASE LADOPCL OF 

# It CTERM *= CTERM + GATTR. VAL ? 

21 CTERM 1= CTERM - GATTR. VAL 5 
31 ERRORt50) 

# ENO 

END 

EHO ELSE 

# BEGIN TRANSFERS ATTR,RP) ; RP1 is RP ; RP 1= RP - 1 J 

IF 6T1ABT2 THEN 

BEGIN LATTR. TYPTR «= INTPTR ; 

# CASE LAOOPCL OF 

it GENi5(368,RP,RP,RPi) J 
2* GEN15(373,RP,RP,RP1) ? 

# 31 ERROR(50) 

ENO 

END ELSE 

# BEGIN IF 8T1 THEN 

BEGIN PACKANONORM(RP) J LATTR. TYPTR 1= REALPTR 
ENO ELSE 

# IF BT2 THEN 

BEGIN PACKANONORM(RPi) ? GATTR. TYPTR 1= REALPTR 
END I 

# IF (LATTR. TYPTR = REALPTR) a(GATTR. TYPTR = REALPTR) THEN 

BEGIN IF LAOOPCL < 2 THEN 

BEGIN IF ROUNDING THEN GEN15 (33B+LADOPCL ,RP,RP,RPi) 

# ELSE G£N15(273*LA00PCL,RP»RP,RP1) ? 

GEN15(2^8,RP,0,RP) 

END ELSE £RROR(50) 

# END ELSE 

IF LATTR.TYPTR = GATTR. TYPTR THEN 

BEGIN IF (LATTR.TYPTR = BOOLPTR) a (LADOPCL = 3) THEN 

# GEN15(i2B,RP,RP,RPi) ELSE 

IF LATTR. TYPTR*. FORM = POWER THEN 
CASE LADOPCL OF 

# 11 GEN15(13B,RP,RP,RP1) ', #NON-STANDARD PASCAL* 

21 GEN15(158,RP,RP,RP1) J 

3t GENi5(12B,RP,RP,RPi) ; 

# ENO ELSE ERR0R(5fl) 

END ELSE ERROR(50) 

END 

# END 
END 

END AWHILE NO = 7+ ? 

# GATTR t= LATTR 
£N0f*IF LFGv(NO = 7) + 



ENO i*SIMPl££XP* J 

PROOfcOUKE tXPRESSION J 

VAR LATTR t ATTR ; LRELOPCL, LCST I SHRTINT ; 

# L0F,BTi,8T2 t BOOLEAN 5 AT I ADDRESS ; 
BEGIN SIMPLEEXP ? 

IF NO = 8 THEN r»RELOP+ 

# BEGIN LOF 1 = TRUE I 

WITH GATTR DO 

IF (KIND = SVAL)M(CL = 7)v<yAL = 0)MTYPTR t BOOLPTRJa 

# -<CL IN ti,31)> THEN 

BEGIN LOF 1= FALSE i LCST I- VAL END ELSE 
BEGIN IF TYPTR t NIL THEN 

# IF TYPTR*. FORM IN C ARRAYS, RECORDS! THEN 
BEGIN IF ACCESS - ORCT THEN 

BEGIN RP 1= RP + 1 ? IF RP = 6 THEN ERROR(33) END | 

# DPLMT 1= DPLMT - 1 I LOADAOR(GATTR,RP) J 
END ELSE TRANSFER(GATTR,RP) 

ENO ; 

# WITH LATTR DO 

BEGIN TYPTR t= GATTR. TYPTR ; KINO t= LCOND END J 
LRELOPCL 1= CL J INSYM30L J SIMPLEEXP ; 

# IF (LATTR. TYPTR * NIL) a{G ATTR. TYPTR t NIL) THEN 
BEGIN WITH GATTR DO 

IF (KIND = SVAL)a(VAL = 0)a(TYPTR * 300LFTR) a 

# -"(LRELOPCL IN C2,i*3) a LOF THEN LOF t= FALSE ELSE 
BEGIN IF TYPTR*. FORM IN [RECORDS, ARRAYS ] THEN 

BEGIN DPLMT *= DPLMT - i } LOADADR (GATTR, 6) ? 

# IF ACCESS = DRCT THEN RP t= RP + 1 ? 
END ELSE TRANSFER(3ATTR,RP) 

END ; 

# IF LOF THEN 

BEGIN RP1 1= RP J RP 1= RP - 1 END ? 
IF LRELOPCL = 7 THEN ,*IN + 

# BEGIN IF (GATTR. TYPTR*. FORM = POWER) a(G ATTR. TYPTR* .ELSET = 

LATTR. TYPTR)v<GATTR. TYPTR = PNUMPTR) a (LATTR.TYPTR*.FORM = 
NUMERIC) THEN 

# BEGIN IF LOF THEN 

BEGINGEN15(633,7,RP,Q) | GEN15 (238 , RP ,7 ,RPi) J 
SENi5(2Q3,RP,0,59) J 

# END ELSE G£N15(2Q3,RP,0,59-LCST) ? 

WITH LATTR DO 

BEGIN JMP 1= 2 J ARITH t= TRUE END J 

# END ELSE ERROR (5 0) 

END *IF LRELOPCL = 7* ELSE 

BEGIN IF (LATTR. TYPTR = 800LPTR) a(GATTR. TYPTR ■* 800LPTR) THEN 

# BEGIN CASE LRELOPCL OF 

1* BEGIN GEN15(i58,RP,RPi,RP) J LATTR. JMP 1= END J 

Zl BEGIN G£N15(i5B,RP,RP,RPl) ; LATTR. JMP t= i END ? 

# 3» BEGIN SEN15(i5B,RP,RPi,RP) J LATTR. JMP t= i END ? 
kl BEGIN GEN15(15B,RP,RP,RPi) ? LATTR. JMP 1= ENO ? 
5* BEGIN GENi5(133,RP,RP,RPl) ? LATTR. JMP *= END ? 

# 6* BEGIN GEN15(i3B,RP,RP,RPi) % LATTR.JMP t= 1 ENO 

END ^>CASE* 5 

LATTR. ARITH 1= FALSE 

# END i»IF* ELSE 

BEGIN 8Ti *= LATTR. TYPTR*. FORM = NUMERIC I 
BT2 I* GATTR. TYPTR*. FORM = NUMERIC ? 

# IF BT1a(GATTR. TYPTR = REALPTR) THEN 

BEGIN IF LOF THEN PACKANDNORM(RP) ? 

LATTR. TYPTR t= REALPTR 

# END ; 

IF 8T2a (LATTR. TYPTR = REALPTR) THEN 
BEGIN IF LOF THEN PACKANDNORMCRP1) ? 
% GATTR. TYPTR i= REALPTR 

EN_p_J_ 



m 
m 
# 



# 
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VI 



51 



6» 



IF BT1aBT2v(LATTR.TYPTR = GATTR 
< P01NTER)*(LATTR. TYPTR*. FORM = 
NlLPfRi v(GATTR.TrPTRi>.FORM = PO 
NILPTR) THEN 

BEGIN IF LATTR. TYPTR = REALPTR 
CASE LRELOPCL OF 
IF LOF THEN 



.TYPTR) a(LATTR. TYPTR*. FORM 

POINTER) a(GATTR.TYPTR = 
INTER)a(lATTR. TYPTR = 



BEGIN 
END ? 
BEGIN 
END ; 
BEGIN 
END ; 
BEGIN 
END J 
BEGIN 



THEN IT 1= 313 ELSE IT 1= 373 ; 
,RP, RPi) ; LATTR.JMP I* 2 
,RP1,RP) ; LATTR.JHP 1= 3 
,RP,RP1> ? LATTR.JHP 1= 3 
IF LOF THEN GEN15(IT ,RP, RPi , RP) ; LATTR.JHP 1= 2 



IF LOF THEN 



IF LOF THEN 



GEN15(IT,RP ; 
GEN15(IT,RP. 
GENi5(IT,RPj 



IF LOF THEN 
ELSE 
t= 



GEN15(37B,8 
BXIXJ(fl,RP) 



,RP,RPi) 



LATTR.JMP 
END J 
BEGIN IF LOF 



THEN 
ELSE 
1= i 



GEN15(378,0,RP,RP1) 
BXIXJ(0,RP) J 



LATTR.JMP 

END } 

END i»CAS£* I 

LATTR, ARITH 1= TRUE 
END i- IF BT±A8T2v<.« t * 
IF (LATTR. TYPTR*. FORM 
POWER) THEN 
BEGIN IF (LATTR. TYPTR 

vtGATTR. TYPTR - LAMPTR) THEN 

BEGIN CASE LRELOPCL OF 



ELSE 

s POW£R)*(GATTR. TYPTR*. FORM « 

= GATTR. TYPTR) v<LATTR. TYPTR = LAMPTR) 



41 
2« 



3J 



2>» 6 J 



ERROR (S3) I 
BEGIN IF LOF 

LATTR.JMP 
ENO $ 
BEGIN IF LOF 

LATTR.JMP 
END 4 
BEGIN IF LOF 



THEN 
1= 1 

THEN 
*= 1 

THEN 

ELSE 



GEN15(153,0,RP,RP1) ELSE £RR0R(89) J 



GENI5(i5B,fl,RPl,RP) ELSE ERROR(39l ; 



SEN15U 
BXIXJ(Q 
1= LRELOPCL 



LATTR.JMP 
END | 
ENO f»CASE* J 
LATTR.ARITH 1= TRUE 
END ELSE ERROR(5Q) 
END -IF (LATTR...* ELSE 
IF (LATTR. TYPTR = GATTR. TYPTR) a 
RECOROS)v(LATTR.TYPTRt.FORM = A 
BEGIN IF LRELOPCL < h THEN ERRO 
BEGIN IF RP > k THEN ERR0R(33 
GEN30(felB,7,G, GATTR. TYPTR*. 
GEN15(53B,RPi,6,7) ? GEN15C 
GEN15(37B,a,RPH-l,RPl) J 3£ 
G£N3Q(6iB,7,7,-l) ? G£N30(0 
WITH LATTR DO 
BEGIN ^INO 1 = LCOND | ARITH 

JMP 1= LRELOPCL - 5 
ENO ? 
END 
END ELSE £RR0R(5Q) 
END fIF t BOOLPTRS* ? 
END -IF LRELOPCL < 6* 
END r»IF TYPTRS * NIL* ? 
LATTR. TYPTR i= BOOLPTR % 
GATTR X- LATTR 
END .♦IF NO = 8* 
END -EXPRESSION* ? 



3B,0,RP,RP1) 
,RP) ! 
- 5 



( (LATTR. TYPTR*. FORM = 
RRAYS)) THEN 
R(9**) ELSE 

> ; 

SIZE) ? NOOP ? AT l = 
53B,RPi+l,RP,7) ; 

N30(Q3B,l,0,IC+2) % 

5B,7,0,AT) ; NOOP | 

t= TRUE J 



IC ; 



PROCEDURE PASSPARAMS 5 

# ^PERFORMS CODE GENERATION FOR PASSING PARAMETERS TO CALLED 

PROCEDURE AND JUMPING TO ITS ENTRY* 
VAR LPL,LPC,LOSP,IT2 t SHRTINT J LPA,AT I ADDRESS; LPK,BT t BOOLEAN? 

# LFP t CTP ; 
BEGIN WITH CTPTRt DO 

BEGIN LPA 1 = PROCAOOR | LPL 1= PROCLEVEL 5 

# LFP »= FORMALS ; LPK t= PROCKINO = ACTUAL 
END ? 

LDSP t= 3 ? LPC 1= ? 

# IF NO = 9 THEN .♦(* 
8EGIN REPEAT 

8EGIN IF LFP = NIL THEN 

# BEGIN IF LPK THEN 

BEGIN ERR0R(72) J SKIP(^9) ; GOTO i END J 
BT 1= FALSE 

# END ELSE 

3T «= LFPt.KLASS = PROC ? 
INSYM60L ? 

# IF BT THEN ^PROC/FCT TO BE PASSED* 
BEGIN IF NO * 1 THEN .♦ID* ERROR(ll) ELSE 

BEGIN SEARCH ; 

# IF CTPTR x NIL THEN 

BEGIN ERR0RC31) ; CTPTR 1= UNDECPTR END J 
IF CTPTR*. KLASS * PROC THEN £RROR<60) ELSE 

# BEGIN WITH CTPTR* DO 

BEGIN PT 1 = LFP*. PROCTYPE J 

IF PROCTYPE t CTPTR THEN »»PARAM. IS FCT* 

# BEGIN IF (PT = LFP)v(pROCTYPE * PT) a ( (PROCTYPE*. FORM 

t NUMERIC) *(PT*. FORM # NUMERIC)) THEN £RR0R<60) 
ENO ELSE ^PARAM. IS PROC* 

# IF PT * LFP THEN ERR0RC6G) ? 

IF CTPTR < PREOEFP THEN 

BEGIN ERR0RC83) J SKIPU9) J GOTC i ENO ELSE 

# IF CTPTR < EXTPTR THEN c SET BIT TO INFORM MONITOR * 

WITH PARMLIST 00 EXTFLAGS *= EXTFLAGSvCCTPTR*. SEGSIZEi 
IF PROCTYPE t NIL THEN 

# IF PROGKINO = ACTUAL THEN 

BEGIN PT *= FORMALS ? IT1 *= ; IT2 *= G ? 
WHILE PT t NIL DO 

# WITH PT* DO 

BEGIN IF VTYPE t NIL THEN 

IF (KLASS = VARS)M(VKIND = FORMAL) v 

# (V&INQ = ACTUAL)a(VTYP£*.SIZE t D) THEN 

APPEND (ITl, 1,1) ELSE APPEND (ITl, 1,0) \ 

it2 1= it2 + 1} pt j= nxtel 
# end; 

APPEN0(ITl,17-IT2,t) 5 IF IT2 > 17 THEN ERRORC103) ? 

SEN30 (718, 6,0, PROCAOOR) f 

# IF ITl t THEN 

BEGIN GEN30<71B,0,€,IT1) ; GEN15 (2GB, ,0 , <*3) ; 
SSN15(12B,6,6,0) ,* 

# END 5 

IF PROCLEVEL t G THEN 

BEGIN IF PROCLEVEL = LEVEL THEN GEN15( 76B, 1,5,0* 

# ELSE LOAOSASEd, PROCLEVEL) J 

3EN15(20B,1,0,18) ; 3EN15 (128,6,6,1) ? 

END 

# END ELSE 

BEGIN IF PROCLEVEL = LEVEL THEN 
3EN30(51d, 1,5, PROCAOOR) ELSE 
% BEGIN LOADBASEd, PROCLEVEL) J GEN30 (528, 1 ,1, PROCADDR) 



# 



# 



• 
• 



GEN15UilB,6»l»0) 

# END ? # 

tNU i»WlTH UTPTK** 

END -IF CTPTRt.KLASS = PROC + ; 

# XNSYMBOL • 
END -NO = i* 

END cLSE -EXPRESSION TO BE PASSEO* 

# BEGIN • 
B6DPL 1= LDSP -5 EXPRESSION I 

IF GATTR.TYPTR t NIL THEN 

# BEGIN IF LPK THEN * 

BEGIN IF LFP*.VTYP£ * NIL THEN 

IF (LFPt.VKINQ = ACTJAL)a<lFP».VTYP£*.SIZE = 1) THEN 

# BEGIN IF GATTR.KINO - VARBL THEN # 

BEGIN TRANSF£R(GATTR,RP) J GEN15 ( 10B,6,RP, 0) END 
ELSE TRANSFER(GATTR,6) ? 

# IF (GATTR.TYPTR*. FORM = NUMERIC) * (LFPt.VTYPE * REALPTR) THEN # 

BEGIN PACKANDN0RM(6) ; GATTR.TYPTR i= REALPTR ENO ; 

END ELSE 

# BEGIN IF GATTR.KINO = VARBL THEN L0ADA0R(GATTR,6) • 

ELSE £RR0R(86) ; 
END ; 

# pt i= lfp*.vtype; • 

IF PT t NIL THEN 

IF GATTR.TYPTR * PT THEN 

# IF (GATTR.TYPTR*. FORM * NUMERIC) v(PTt. FORM t NUMERIC) THEN # 

IF (GATTR.TYPTR t NILPTR) v {PT*.F0RM * POINTER) THEN 

IF (GATTR.TYPTR t LAMPTR) v (PT+. FORM t POWER) THEN 

# ERROR (60) i # 
END -IF LPK* ELSE 

BEGIN IF GATTR.KINO # VARBL THEN TRANSFER(GATTR,6) ELSE 

# BEGIN LOADADR(GATTR,l) | • 

IF LPL = LEVEL THEN GEN3G ( 513 , 2, 5 , LPA) ELSE 
BEGIN L0ADBAS£(2,LPL) ? GEN30 ( 52B , 2, 2, LPA) END ? 

# IF LPC t THEN 3EN15 (2GB, 2,0 ,LPC ) J % 

IF CP = 1 THEN AT 1= IC ELSE AT * = IC + 1 % 

GEN3G(03S,3,2,AT) ? GEN15 (533,1,1 ,0) J NOOP ? 

# GENi5( 106,6, 1,0) % 

END 

END ; 

# END -IF GATTR.TYPTR t NIL* ; % 
END -EXP* J 

G£N3C<51B,6,6,LDSP) ? 

# LDSP I* LDSP + 1 J LPC t= LPC + 1 ? RP := J % 
IF LPK THEN LFP 1= LFP*.NXTEL 

ENO 

# UNTIL NO t 15 ; P,+ • 
IF NO t IC THEN -) * BEGIN ERR0R(48) I SKIPU9) ENO ELSE INSYMBOL 

END -IF NO = 9* J 

# IF LFP # NIL THEN ERR0RC72) ? # 
IF LPK THEN 

BEGIN IF LPL t THEN 

# BEGIN IF LPL = LEVEL THEN GEN15 (76B,6, 5, ) ELSE # 

BEGIN LOADBAS£(l,LPL) ? GEN15 (103,6,1,0 ) END 
END ; 

# GEN3a(71B,7,0,IC+l) ; GEN30 (2<*8,0,Q,LPA) ? 
ENO ELSE 

BEGIN IF LPL = LEVEL THEN GEN30 (51B ,1,5 ,LPA) ELSE 

# BEGIN LOADBAS£(l»LPL) J GEN30 ( 528 ,1,1 ,LPA ) END J # 
GEN15C63B, 7,1,0) J GEN15I23 B, 1 ,3 ,42) J 

GEN15C/3B, 6,1,0) ? GEN33<71B, 7 ,0 , IC+i) J 
% GEN30(u2B,7,C,0) ? % 

END ; 
jNOOP ? 



• 



1 BoUFl I- 3 

END i»PASSPARAMS* ? 

PROCEDURE ASSIGN ? 

VAR LATTR I ATTR J AT t ADDRESS? 

# BEGIN VARIABLE ? LATTR 1= GATTR ; 

IF NO t 20 THEN .♦! = * 

BEGIN IF GATTR.TYPTR t NIL THEN ERR0RC52) J SKIP(20) ? 

# IF NO t 2C THEN 

BEGIN IF GATTR.TYPTR = NIL THEN ERROR(52) J GOTO i END 
END J 

# INSYMBOL \ EXPRESSION ? 

IF GATTR.TYPTR = NIL THEN SKIP(**9) ELSE 
IF LATTR. TYPTR t NIL THEN 

# BEGIN WITH GATTR DO 

IF TYPTRt.FORM > ARRAYS THEN 

BEGIN DPLMT t= DPLMT - 1 | LOADADR(GATTR, 2) J RP t= 2 END ELSE 

# IF (KIND = LVADMCTERN * 0) THEN 
WITH LATTR. TYPTR* DO 

IF (FORM = NUMERIC) a (ABS< MIN) < TWOT017) a < ABS(MAX) < TH0T017I THEN 

# GEN30(72B,6,RP,CTERM) ELSE TRANSFERCGATTR ,6) ELSE 
IF KINO = VAR8L THEN 

BEGIN TRANSFERCGATTR, RP) J GEN15 (168,6 ,RP ,0) END ELSE 

# TRANSFER (GATTR, 6) ? 

IF GATTR. KINO * SVAL THEN RP 1= RP - 1 } 

IF (LATTR. TYPTR = REALPTR) a (GATTR.TYPTR*. FORM = NUMERIC) THEN 

# PACKAN0NOR.MC6) ELSE 

IF LATTR. TYPTR * GATTR.TYPTR THEN 
_ IF (LATTR. TYPTR*. FORM t NUMERIC) v (GATTR. TYPTR*. FORM * NUMERIC) 

# THEN 

IF (LATTR.TYPTRt.FORM * POINTER) v( GATTR.TYPTR * NILPTR) THEN 
IF (LATTR. TYPTR*. FORM t POWER) v (GATTR.TYPTR t LAMPTR) THEN 

# ERROR (53) J 

WITH LATTR. TYPTR* DO 
IF FORM < POWER THEM 

# BEGIN IF (FORM = NUMERIC) * ( LATTR. TYPTR t INTPTR) THEN 

BEGIN WITH GATTR 00 
IF KIND x SVAL THEN 

# BEGIN IF (MIN > VAL)*(MAX < VAL) THEN ERROR(iOi) % 
END ELSE 

IF ASSCHECK THEN CHECKBNDS (6, MIN, MAX, ASSERR) 

# END ELSE 

IF (FORM = SYMBOLIC) a(LATTR. TYPTR t REALPTR) 

aCLATTR. TYPTR * ALFAPTR) a(GATTR. KIND t SVAL) aASSCHECK THEN 

# CHECKBNOS (6, 0,FGGNST*. VALUES, ASSERR) % 
TRANSFER(LATTR,6) 

END ELSE 

# IF FORM > CLASSS THEN ERROR (53) ELSE 

BEGIN LATTR. DPLMT X- LATTR. DPLMT - 1 J LOADADRCLATTR, 1) | 
3EN3G<61B, 7,0, SIZE) 5 MOOP ? AT *= IC ? 

# GENli?C538,3,2,7) ? GEN15 <18B,6,3 ,3) J GEN15(538,6, i ,7) J 
3£N30< 618,7,7,-1) J GEN30 (05B,C , 7, AT) 

END 

# ENO r»IF LATTR. TYPTR = NIL* ? 






# 
# 



ItNQ (♦ASSIGN* j 

• PROCEDURE VARIA8 ; 
BEGIN IF NO M THEN 

BEGIN ERR0R<49) 1 GATTR.TYPTR « = NIL ENO ELSE 

• BEGIN SEARCH ? 

IF CTPTR = NIL THEN 

BEGIN ERR0R(31) ', CTPTR != UNQECPTR END ; 

• IF CTPTR*. KLASS S PROC THEN 

BEGIN ERR0RC32I 5 INSYMBOL ? GATTR.TYPTR 1= NIL ENO 
ELSE VARIABLE 

• END 

END r»VARIAB+ J 

• PROCEDURE GETPUTCLPSW t SHRTINT) J 

CONST EOR = 10 7B, REST - 106B, RWRT * 122B J 

• BEGIN 

IF NO t 9 THEN <♦ SY # ( * 

BEGIN ERR0RC79) $ SKIPU9) ? GOTO 10 END ; 

• INSYMBOL ? VARIA8 ,' 
WITH GATTR 00 

IF TYPTR t NIL THEN 

• BEGIN 

IF TYPTR*. FORM = FILES THEN 
BEGIN 

• DPLMT t= OPLMT + 1 ; 

IF ACCESS = DRCT THEN 

BEGIN IF BREG IN ID, LEVEL] THEN 
W BEGIN IF BREG * THEN 3REG * = 5? 

GEN3C (618,7, BREG, DPLMTU 
END ELSE 

• BEGIN L0AD3AS£(5,8REG)| GEN30 (623 ,7 ,5, DPLMT) END? 

END ELSE G£N30(62B,7,RP,DPLMT) ? 

CASE LPSW OF 

• f£OR+ II JUMPTO(EOR) ? 
fGET,RST+ 2-,M BEGIN IF LPSW = f» THEN 

BEGIN GEN15(76B,7,7,0); 

• G£fl3G(51B,7,5,LC+TCT> ; TCT *= TCT+i; 

IF TCT > TMAX THEN TMAX S= TCTJ 
JUMPTO(REST) J TCT 1= TCT-i? 

• G£N33(5iB,l,5,LC+TCT)J GEN15 (638,7 , 1, 0) J 

END| 

IF TYPTR*.FELTYP£=CHARPTR THEN JUMPT0(5£TCI 

• ELSE JJMPTO(GETB) I 

end; 
.♦put* 3t if typtr*. felt ype = charptr then jumpto(putc) 

• ELSE JUMPT0CPUT8) 
cRWT* 51 JUMPTO(RWRT) 

END ; 

• END ELSE 

IF (TYPTR*. FORM a POINTER) * ( LPSW=<t) THEN 
BEGIN 

• TRANSFER(GATTR,RP) ? GEN15 (108,6 ,RP, ) ? 

RP 1= RP - l ; AOOR£SSVAR(TYPTR*. DOMAIN, GATTR) ? 
TRANSFER(GATTR,6) 

• END ELSE ERRORS) J 
END ? 

IF NO t 10 THEN i» SY t ) * 

• BEGIN ERRORS) } SKIP (^9* I END ELSE INSYMBOL J 



• 

• 
• 



mI ENO f GETPUT * J 

# PROCEDURE ALLC J 

VAR BT1 * BOOLEAN } LATTR I ATTR J 
BEGIN 

# IF NO t 9 THEN >» SY * ( + 

begin err0r(79) j skipu9) 5 goto 10 end ; 
insymbol; variab; pt «= nil; 
# with gattr do 

IF TYPTR t NIL THEN 
WITH TYPTR* 00 

# IF FORM t POINTER THEN ERROR(^) ELSE 
BEGIN 

ADDRESSVAR(DQMAIN, LATTR) J TRANSFER (LATTR, RP> J 

# IT1 J= DOMAIN*. VTYPE*. SIZE » PT 1= ELTYPE J 
END ; 

IF PT = NIL THEN 

9 BEGIN SKIP(49)J GOTO 10 END? 

IF NO = 15 THEN t» SY = , + 
BEGIN 

# PT »= pt*.recvar; 

REPEAT 

if pt = nil then 

# begin err0r(66u skip(49) 5 goto 10 end; 

insymbol; 

if no = 1 then 

# begin search; 

if ctptr = nil then 

begin erroru1); skip (49),* goto 10 end? 

# if ctptr*. klass * konst then 

begin err0rc63) ; skipu9)? goto 10 end; 

WITH PT* 00 

# IF <GASETYPE*,FORM = SYMBOLIC) a 

(CTPTR*. GONTYPE t CASETYPE) v 
(CASETYPE*. FORM = NUMERIC) a 

# (CTPTR*. CONTYPE * INTPTR) THEN 

BEGIN ERRORC73) 5 SKIP(49); GOTO 10 END; 
IVAL * = CTPTR*. VALUES? 

# END ELSE 

IF (NO * 2) v (CL IN 12i3U THEN 

BEGIN ERR0R(63)| SKIP (49); GOTO 10 ENO ELSE 

# WITH PT* DO 

IF (CL = 1) a (CASETYPE*. FORM * NUMERIC) 
v (CL s k) * (CASETYPE * CHARPTR) THEN 

# BEGIN ERROR (73) 9 SKIP (49); GOTO 10 END; 

CTPTR *= PT*. VARIANTS; BT1 1= FALSE; 
WHILE (CTPTR t NIL) a -BT1 DO 

# WITH CTPTR* DO 

IF CASEVAL = IVAL THEN 8T1 1= TRUE 

ELSE CTPTR 1= NX TEL ; 

# IF CTPTR = NIL THEN 

BEGIN IT *= PT*.CASESIZ£; PT 1= NIL END ELSE 

BEGIN IT *= CTPTR*. CASESIZE5 PT 1= CTPTR*. VARIANTS END 

# INSYMBOL; 

UNTIL NO t 15; 

ENO ELSE IT 1= PT*,SII£; 

# GEN3Q(72B,6,RP,IT) ? S£N15(54B ,6,RP,0) ; 
GEN30(70B,0,RP,IT1) ; GENl5(37B,a,G ,6) ; 
GENi5(lQB, 6, RP,0) 5 SEN30 (S3B,2,9 , IC + (CP+1) DIV 2) ; 

# G£N15(S*B,6,RP,0) J GEN33 (713,6,0 , NILVAL) ; 
NOOP ; RP 1= RP - 1 ; TRANSFER(GATTR,6) ; 
IF NO * 10 THEN * SY t ) * 

# BEGIN ERR0RU8) ? SKIPU9) END ELSE INSYMBOL ; 



01 



C.NU r* ALLU * 



# 
» 



LLO, LHI I SHRTINT 



SY # ( * 

SKIPU9) 



J GOTO 10 END ; 



PROCEDURE PCX ? 

VAR LPT t CTP 
BEGIN 

IF NO t 9 THEN <♦ 

BEGIN ERROR (79) J 

INSYM80L I VARIA3 ? 

WITH GATTR DO 

IF TYPTR t NIL THEN 

BEGIN 

WITH TYPTRt DO 

IF (FORM t ARRAYS) *(A£LTYPE t CHARPTR) THEN ERROR(<^) ELSE 

BEGIN LPT 1= INXTYPE ? DPLMT t= DPLMT + (ALFALENG-i) - LO 

LLO t~ LO I LHI » = HI - (ALFALENG - 1) ; 
END ; 

LOADAOR(SATTR,i) J RP » = 1 J 
END ELSE LPT *= INTPTR? 
IF NO * 15 THEN 

BEGIN ERROR(SO) ? SKIPU9) I GOTO 10 END 5 
INSYMBOL ? EXPRESSION ? 
WITH GATTR DO 
IF TYPTR * NIL THEN 
BEGIN 

IF (TYPTR*. FORM t NUMERIC) v (LPT*. FORM * NUMERIC) THEN 

BEGIN IF TYPTR t LPT THEN ERROR<<^> END ELSE 

BEGIN 

TRANSFER(GATTR,2) J RP 1= 2 5 

IF INXCHECK THEN CHECK8N0S(2 , LLO, LHI, INXERR) ? 
GEN15(368,a,l,2) ? 

GEN3Q(61B, 7,0, -ALFALENG) % GEN15 (13B,6,0 ,0) ; 
NOOP J IT «s IC ; 

GEN3Q(61B,7,7,1) ? GEN15 (53B,1 ,0 , 7) J 
GEN15(20B,6,C,6) ; SEN15 (128,6,1 , 6) ? 
GEN3Q(a58,7,0,IT) J RP 1= 
END ; 
END ? 
IF NO t 15 THEN 



BEGIN 


ERROR(80) ? 


SKIPU9) 


; GOTO 10 


END ; 




INSYMBOL ? VARIA3 


• 










IF GATTR. TYPTR * 


NIL THEN 










IF 


GATTR. TYPTR 


t ALFAPTR 


THEN 


ERROR(^) 










ELSE 


TRANSFER(GATTR, 


>6) 


IF NO 


t 10 THEN 


•♦ SY t ) * 










BEGIN 


ERROR (W) ? 


SKIP(<f9) ? 


END ELSE 


INSYMBOL 5 





u» 



tNU t* PC* * 



n 



# 



• 



LLO, LHI t SHRTINT 



PROCEOURE UNPCK I 
VAR LPT t CTP 

BEGIN 

IF NO t 9 THEN i» SY * ( + 
BEGIN ERR0RC79) ? SKIPU9) 
INSYMBOL ; EXPRESSION ? 
IF GATTR. TYPTR * NIL THEN 
IF GATTR. TYPTR t ALFAPTR 



GOTO 10 END 



ERROR Ikk) 
TRANSFER(GATTR,1) 



GOTO 10 END 



THEN 
ELSE 

IF NO t 15 THEN 

8EGIN ERRORUO) i SKIP<%9) 

INSYMBOL I VARIA8 ; 

WITH GATTR 00 

IF TYPTR t NIL THEN 

BEGIN 

WITH TYPTR* 00 

IF (FORM t ARRAYS) *'(A£LTYPE * CHARPTR) 
BEGIN LPT t~ INXTYPE ? DPLMT 1= DPLMT 
LLO 1= LO | LHI 1= HI - (ALFALENG - 1) i 

END ; 

L0ADA0R(GATTR,2) I RP 1= 2 J 

END ELSE LPT 1= INTPTR; 

IF NO t 15 THEN 

BEGIN ERR0RC8G) ? SKIPU9) ? GOTO 10 END J 

INSYMBOL ? EXPRESSION J 

WITH GATTR DO 

IF TYPTR t NIL THEN 

BEGIN 

IF <TYPTR+.FORM t NUMERIC) v (LPT+ .FORM t 
IF TYPTR t LPT THEN ERROR(^) END 



THEN ERRORC<ttfJ ELSE 
♦ (ALFALENG-1) - LO 



# 



NUMERIC) 
ELSE 



THEN 



BEGIN 
BEGIN 

TRANSFER(GATTR,3) ! RP «= 3 | 

IF INXCHECK THEN CHECKBNDSC 3 , LLO, LHI, INXERR) 

GENi5<3&8,2,2,3) ? 

GEN30C61B* 7,0, -ALFALENG) ? GEN15 <**3B,C,G , Sh) 

NOOP ; IT 1= IC 

GEN15(239,1,0,6) ? 
SEN15(538,6,2,7) ; 



G£N3Q<618,7,7,i) 
G£N15(1SB, 6,1,0) 
GEN30(058,7,0,IT) ; 
ENO 
END ; 

IF NO t 10 THEN o SY t ) 
BEGIN ERROR(itS) JSKIP(^9> 



? END ELSE INSYMBOL 






01 END r* UNFCK * 4 

• PROCEDURE INSAPP<LPSW t SHRTINT) J 
VAR LVALUE * SHRTINT ? LOF I BOOLEAN ? 
BEGIN 

• IF NO t 9 THEN i» SY # ( * 

BEGIN ERROR(79) ? SKIP<<*9> \ GOTO 10 END J 
INSYMBOL 5 

• IF LPSW = 3 THEN EXPRESSION ELSE VARIA8 J 
IF GATTR.TYPTR t NIL THEN 

IF GATTR.TYPTR+.FORM t NUMERIC THEN ERROR(^) 

• ELSE TRANSFER(GATTR,1) 
IF NO t 15 THEN 

BEGIN ERRORC88) ? SKIPU9) I GOTO 10 ENO ; 

• INSYMBOL ? EXPRESSION \ 
LOF 1= FALSE I 

WITH GATTR DO 

• IF TYPTR t NIL THEN 

IF TYPTRt.FORM t NUMERIC THEN ERROR(^) ELSE 
IF KIND = SVAL THEN 

• BEGIN LOF *= TRUE % LVALUE »= VAL J RP 1= 2 END 

ELSE TRANSFER(GATTR,2) J 

IF NO t 15 THEN 

• BEGIN £RROR(80) ; SKIPU9) J GOTO 10 ENO 5 
INSYMBOL % 

IF LPSW = 8 THEN VARIA8 ELSE EXPRESSION J 
% IF GATTR.TYPTR * NIL THEN 

IF GATTR. TYPTRt. FORM t NUMERIC THEN ERR0RU4) 

ELSE TRANSFERCGATTR,3) J 

• IF LOF THEN 

BEGIN IF LVALUE t 3 THEN GEN15 (2JJB, 1,0 , LVALUE) ENO ELSE 
BEGIN GEN15(633, 7,2, 31 5 GEN15 (228, 1,7 ,1) END ; 

• GEN15C12B,6,1,3J J 

IF LPSW = 8 THEN GEN15 (5<*B,6,3, Q) ELSE G£N15(5^8,6 ,1,0) 
IF NO # 13 THEN fi SY t ) + 

• BEGIN ERROR(MJ) i SKIP<V9) 5 ENO ELSE INSYMBOL ? 



• 






# 






01 ENO e INSAPP * 5 

• PROCEDURE REAOIRI 

CONST RD = 110 B ? 
BEGIN IF NO * 9 THEN r* ( * 

• BEGIN ERR0R(79)| SKIP(<t9>; GOTO 10 ENO; 

REPEAT 

insymbgl; variab; 
• if gattr.typtr * nil then 

IF GATTR.TYPTR = CHARPTR THEN 
BEGIN i» INLINE CODE * 

• GEN3il(51B,2,«,INPT) ? GEN15(53B,2,2,0) ; 

GEN15 (10 8,6,2,0)1 TRANSF£R(GATTR,6) ? 
GEN30(618,7,8,INPT + 1) ? JUMPTO (GETC) J 

• ENO ELSE 

BEGIN LOAOADR(GATTR,1) ? 

IF GATTR.TYPTR*. FORM = NUMERIC THEN 

• GEN15C668, 7,0,0) ELSE 

IF GATTR.TYPTR = REALPTR THEN 

GEN30 (618,7,0,1) ELSE ERROR(Mt) ; 

• JUMPTO(RO) ; 

IF ASSCHECK THEN 

IF (GATTR.TYPTR*. FORM = NUMERIC) a (GATTR.TYPTR * INTPTR) 
W THEN CHECKBN0SC6, GATTR.TYPTR*. MIN, GATTR.TYPTR*. MAX, 

ASS ERR) ? 



4p 





END? 


RP 1= 


a; 


UNTIL 


NO t 


15 i» , 


+ ? 


IF NO 


t 10 


THEN i* 


) * 


BEGIN 


ERROR «tS) ; 


SKIPC+9) 


r»REAOIR + 


• 





_ _. _ ._ . ... END ELSE INSYMBOL 

• 10 t END 

PROCEDURE WRITEIR J 

• CONST WRTI = llit8,^RTE = 115B,WRTF=1168,MRTA=117a,WRTC=120a, 

WRTB=1218,MRT0=1118,TXT=112B; 

VAR LPTR 1 CTP J LX2, FIN * BOOLEAN j 

• L,I, LGA, LCP * SHRTINT J AWORD t ALFA | 
A i ARRAY C1..ALFALENG1 OF CHAR | 

lic t address; 

PROCEDURE SETX2AN0JMPCFOEFVAL * INTEGER ; FADR * ADDRESS) 
BEGIN IF LX2 THEN GEN3G(71B,2 ,0 ,FDEFtf AL) ; 

• JUMPTO(FAOR) 
END ; 

• PROCEDURE LOADEXP ? 

BEGIN INSYMBOL ; EXPRESSION ; 
IF GATTR.TYPTR t NIL THEN 

• IF GATTR.TYPTRt.FORM * NUMERIC THEN ERROR(62) ; 
TRANSFER(GATTR,RP) 

END ; 

BEGIN IF NO t 9 THEN 

8EGIN ERROR(79) | SKIP(<*9) ; GOTO 10 END ? 
% REPEAT WHILE CH = = = DO NEXTCH ; 

IF CH = ==^=, THEN 
BEGIN GEN30(0%B, 0,0,0) ; LCA t- CA J LCP 1= CP ; 

• NOOP } COQECCA1 *= 8UF J I •* 5 FIN i= FALSE ; 

LIC i- IC I L 1= o ; 

REPEAT NEXTCH ; 

• IF EOLFLAG THEN 

BEGIN ERR0R(3) I FIN *= TRUE END ELSE 
BEGIN IF CH = .£= = = THEN 
W BEGIN NEXTCH ', FIN 1 = CH t = = = = END ; 

IF ^FIN THEN 



L 1= L + 1 



END 



ALFALEN3 00 Atll 1 = EOL J 

BUF » = ORDUHORD) J 

«= IC + 1 J INS<IC,LCP,LCA> ; 



BEGIN I i= I + i ? All] 1= CH 
IF I = ALFALENG THEN 
BEGIN PACK(A,1,AW0RD> J I 1= 9 
CA Is CA ♦ 1 ; IC 1= IC + 1 
IF CA > CODMAX THEN 
BEGIN ERRORC90) ? CA Is 1 
COOEtCAl 1= ORD(AWORD) 
END ; 
END { 
END ; 
UNTIL FIN J 
FOR I 1= I + 1 TO 
PACK<A,1,AW0RQ) I 
CA 1= CA + 1 ? IC 
IF CA > COOMAX THEN 
BEGIN ERR0R(9Q) 5 CA I- 1 END % 
INSYMBOL J 
IF NO = 19 THEN r»l + 

BEGIN GEN33 (71 8, 1> > 55B) ! RP «= 1 ! 
LOADEXP I GEN30(72B,2,2,-L> 1 
JUMPTO(WRTC) 
END ? 

3EN33<71B,i,C,LIC) ? JUMPTO(TXT) 
END ELSE 

BEGIN INSYMBOL 5 EXPRESSION ? TRANSF£R(GATTR,RP) 
LPTR 1= SATTR. TYPTR ,' 
IF NO = 19 THEN i»l» 
BEGIN LOAOEXP ; LX2 *= FALSE ; 
END ELSE LX2 t= TRUE ? -X2 NOT YET SET* 
IF LPTR t NIL THEN 

IF {NO=i>MAVAL = =OGT = >MLPTR*.FORM<POW£R) THEN 
BEGIN SETX2AN0JMP(2a,WRT0) ? INSYMBOL END ELSE 
IF LPTRt.FORM = NUMERIC THEN SETX2ANDJMPUQ , WRTI) 
IF LPTR = REALPTR THEN 
BEGIN IF NO = 19 THEN *»t* 
BEGIN LOADEXP J 

SETX2ANOJMP(20,WRTF) 
ENO ELSE SETX2AiOJMP(20,WRT£) ? 
END ELSE 

THEN SETX2ANOJMP(10,WRTA) ELSE 

THEN SETX2ANOJMP(10,WRTB) ELSE 

THEN 

*»CALL PUTC ONLY* 



# 



>?r : 



, ' ,i ' V * ,'• ■ 



*0-FORMAT* 



ELSE 



■■:!-. 






IF LPTR = ALFAPTR 
IF LPTR = 800LPTR 
IF LPTR = CHARPTR 
BEGIN IF LX2 THEN 

BEGIN 3XIXJ<6,1) 5 

GEN3Q(518,1,C,0UTPT) ; 
SEN3C (618,7,13 ,OUTPT+i) 
ENO ELSE JUMPTO<WRTC) 
END ELSE ERROR <M>> ? 
END ; 
RP 1= C I 
UNTIL NO * 15 J <•,* 
IF NO t IC THEN iO + 
BEGIN ERRCR(<*8) I SKIPU9) ENO ELSE 



• 



GEN15(53B,6,1,: 
; JUMPTO(PUTC) 



) 



INSYMBOL 



{MENU i»WKlitiR+ 






* 

• 






PROCEDURE IFSTAT J 

VAR LCA1, LCA2, LCPi, LCP2I SHRTINT | 

BEGIN 

INSYMBOL ? EXPRESSION J 

IF GATTR.TYPTR t NIL THEN GENJP(fl) J 

LCA1 1= CA ; LCPi 1= GP ; 

IF NO t Zh THEN & SY t THEN + 

BEGIN 

IF GATTR.TYPTR t NIL THEN ERROR(56) J SKIP(2^> J 

IF NO t Zk THEN 

BEGIN 

IF GATTR.TYPTR = NIL THEN ERR0R(56> ; 
IF ERRCL£NQ] = ENDSY THEN GOTO 30 ; GOTO 20 ; 
END 
END ; 
INSYMBOL 5 






# 
# 
• 






0* 



STATEMENT ? 



0* IF NO * 2 5 THEN i* SY * ELSE * 

BEGIN NOOP; INS<IC,LCPi,LCAl) END ELSE 

• BEGIN 

GEN3u {G^a,G,0,Q> ; 

LCA2 1= CA ? LCP2 «= CP ? 

• NOOP ; 

INSUC,LCP1,LCA1) % 
INSYM80L J STATEMENT ; 

• NOOP; INS(IC,LCP2»LCA2) ? 
END 

END t* IFSTAT * 1 

PROCEDURE GASESTAT ? 

• TYPE PTR = tLCSLABS I 

VAR LCSLABS I CLASS 33 OF PACKED RECORD NEXT i PTR ?' 

CSLA8 I SHRTINT ? 

• ADDR * ADDRESS i 

END J 

LCA, LCP, LCA1, LCPif LCA2, LCP2, LMIN, LMAX I SHRTINT ? 

• LPTR, PT1, PT2 * PTR ? LCTP * CTP | LERR t BOOLEAN J 

PROCEDURE ACASE ? 

• WAR LCA, LCP t SHRTINT | LERRFG I BOOLEAN J PT1,PT2,PT3 I PTR f 
BEGIN LERRFG t= TRUE ? NOOP J 

REPEAT IF NO IN £15,271 THEN r», OF*- INSYM80L ; 

• IF NO = i THEN r*ID* 
BEGIN SEARCH ; 

IF CTFTR = NIL THEN 

• BEGIN ERR0RL31) ? GTPTR 1= UNDECPTR END ; 
WITH CTPTR+ DO 

BEGIN IF KLASS t KQNST THEN 

• BEGIN IF LERRFG THEN ERR0RC61) J GOTO 1 END ; 

IF CONTYPE t NIL THEN 

BEGIN 

• IF LCTP = NIL THEN LCTP 1= CONTYPE ELSE 

IF LCTP t CONTYPE THEN ERR0R173) J 

IT X- VALUES J 

• END 
END 

END *IF NO = 1* ELSE 

• IF NO - 2 THEN (♦CONST* 
BEGIN CASE CL OF 

II PT x- INTPTR ? 

• 2» PT *= REALPTR ? 
31 PT Is ALFAPTR ? 
ki PT f= CHARPTR ? 

• END ; 

IF LCTP = NIL THEN LCTP *= PT ELSE 

IF LCTP t PT THEN £RR0R<73) % 
% IT t~ IVAL ; 

END fIF NO = 2* ELSE 

BEGIN IF LERRFG THEN ERR0R<61) ? GOTO i END J 

• IF IT > TW0T017 THEN ERRORUOQ) ? 

LERRFG 1= FALSE ? PT1 i = LPTR ? PT2 1= NIL J 
IF "ERR THEN 

• WHILE PT1 t NIL DO 

BEGIN IF PTit.CSLAB > IT THEN 

BEGIN IF PTlt.CSLAB = IT THEN ERR0R(77) | GOTO 3 END J 

• PT2 1= PT1 | PT1 1= PTlt.NEXT | 
END I 

LMAX *= IT ? 

• 3* NEW(PT3) ; 
IF PT3 t NIL THEN 



• 
# 






BEGIN WITH PT3* DO 

BEGIN NEXT 1= PT 1 J CSLAB t= IT 5 ADOR 1= IC END ; 
It- PT<£ = NIL TMtN 

BEGIN LPTR 1= PT3 5 LMIN t= IT END ELSE PT2t.NEXT t= PT3 
ENO ELSE ERR0RI71) J 
INSYMBOL 5 
UNTIL NO * 15 ; *»,+ 
IF NO t 19 THEN * t * ERROR (6^) ELSE INSYMBOL J 






# 
• 
• 






• 

m 






STATtMtNl J GtNJy (fc*tJ,y,U,uJ J LCA 1= CA J LCP »= CP 

IF NO = 16 THEN «♦; + 

BEGIN INSYMBOL ; IF NO t 22 THEN ACASE ENO ELSE 

IF ERRCLCNO] = BEGSY THEN 



BEGIN ERROR(58) I GOTO 1 ENO 
IF NO * 22 THEN ERR0R(63) J 
INS(IC+LMAX-LMIN+1,LCP,LCA) 
ENO fACASE* ? 



ELSE 



LPTR * = NIL ? LERR 1= ERR 



ERR »= FALSE 



BEGIN r»CASESTAT + 

LMIN t- ', LMAX 1= 

INSYMBOL ? EXPRESSION ? 

LCTP S= GATTR.TYPTR ; 

IF LCTP t NIL THEN 

BEGIN IF LCTPt.FORM = NUMERIC THEN LCTP 1= INTPTR ELSE 

IF (LCTPt.FORM > SYMBOLIC) v (LCTP = REALPTR) v (LCTP = ALFAPTRI 

BEGIN ERRCR(62) | LCTP t= NIL END J 

TRANSFtR(GATTR,RP) \ 
END ? 

IF INXCHECK THEN 
BEGIN GEN30(7iB,7,S,IC) J 5EN30 (71B ,2,2 , S) ? 

LCAi 1 = CA ? LCP1 1= CP I GEN15(373»0,1,2) J 

GEN30(71B,2,Q,O) ? LCA2 « = CA ', LCF2 *= CP J 

GEN15(37B,2,2,1) J G£N15( 128,2 ,2,0 ) ? 

GEN30(i3B,3,2,INXERR) 
ENO I 

SEN15C638, 7,1,0) ? GEN30 (028, 7 ,0 ,0) 
IF NO t 27 THEN r»OF* 
BEGIN IF LCTP t NIL THEN ERROR (65) 

IF NO t 27 THEN 

IF LCTP = NIL THEN ERRORI65) ? 
END ; 

ACASE ? INS(IC-LMIN,LCP,LCA) J PT1 1 = LPTR J 
IF INXCHECK THEN 

BEGIN INS(LMIN,LCP1,LCA1> J INS(LMAX ,LCP2,LCA2) 5 ENO J 
IT 1= LMIN ? IT1 1= IC + LMAX - LMIN ♦ 1 J NOOP ? 
IF ""ERR THEN 
WHILE PT1 t NIL DO 
BEGIN WHILE PT1+.CSLA3 t IT DO 

BEGIN IF INXCHECK THEN 

BEGIN GEN30(71B,7,0,ICi J GEN3C (048 ,0 ,0 , INXERR) END ELSE 
BEGIN GtN30(0%8,C,G,ITi) ? NGOP ENO ', 
IF ERR THEN GOTO 10 ; 
IT t= IT + 1 

END ', 

GEN30 («48,0,8,PTH'.ADOR) 



THEN 



? LCA 1= CA ? LCP *= CP ; 



SKIP(27) 






PTl 
END ; 



1= PTlt.NEXT 



NOOP 
IT 1= IT + 1 



• 
# 



• 



4>« IF NU = C<L THtN i»tNU* lNirMBOL J 
ERR «= ERR v LERR I 
ENO eCASESTAT* J 

PROCEDURE REPEATSTAT J 
WAR LJPADOR! AOORESS } 
BEGIN 

NOOP ; LJPAOOR *= IC I 

REPEAT 

BEGIN 

INSVMBOL 5 



i 



• 
• 






• 






m 



01 STATEMENT 1 



IF ERRCLCNO] = BESSY THEN BEGIN ERRCR(58) ; GOTO 20 END ; 
W IF NO = 25 THEN .♦ELSE* 

ritblN ERROR(b4J J iNSYMdOL } GOTO 20 ENO 
END 

# UNTIL NO * 16 } <♦ SY t ', * 

IF NO t 29 THEN & SY t JNTIL * ERRORC67) ELSE 
BEGIN 

# INSYMBOL ; EXPRESSION ? 

IF GATTR.TYPTR * NIL THEN GENJP ( LJPAOOR) ELSE SKIP<<*9) 
END 

# END ,* REPEATSTAT * } 

PROCEDURE WHILESTAT ? 

# VAR LJPADDR t ADDRESS? LCA,LCP * SHRTINTJ 
BEGIN 

NOOP J LJPADDR t= IG | 

# INSYMBOL I EXPRESSION J 

IF GATTR.TYPTR t NIL THEN GENJP(O) ? 
LCA 1= CA ? LCP *= CP J 

# IF NO * 31 THEN *» SY # DO + 
BEGIN 

IF GATTR.TYPTR t NIL THEN £RROR(59) J SKIP<31> J 

# IF NO * 31 THEN 

BEGIN 

IF GATTR.TYPTR = NIL THEN ERR0RC59) J 

# IF ERRCLCNO] = 8EGSY THEN GOTO 20 J GOTO 10 

END 

END ; 

# INSYMBOL ? 






• 



SI STATEMENT ', 



• 



SEN30 (0^8,8, 0,LJPAQOR> 5 

END i» WHILESTAT + ,* 

PROCEDURE FORSTAT ; 

VAR LATTR : ATTR J LCLASS, LCA, LCP I SHRTINT J 

• LJPADOR I ADDRESS J LOF 1 BOOLEAN ; LUP8ND t SHRTINT J 

PROCEDURE CHTYPE J 

• BEGIN 

WITH GATTR DO 

IF TYPTR t NIL THEN 

• IF (TYPTR*. FORM > SYMBOL IC) v (TYPTR = REALPTR)* 
(TYPTR = ALFAPTR) THEN 

BEGIN ERR0R162) % TYPTR t= NIL END 

• END ; 

PROCEDURE CHTYPES S 
% BEGIN 

WITH GATTR DO 

IF (TYPTR t NIL)* (LATTR. TYPTR t NIL) THEN 

• IF ( (TYPTR*. FORH = SYMBOLIC) v(LATTR. TYPTRt.FORM = SYMBOLIC)) a 
(TYPTR * LATTR. TYPTR) THEN 

BEGIN ERR0R(73) i TYPTR » = NIL END 

• END ; 





BEGIN LCA t- ; 


• 


INSYMBOL J 




IF NO # i THEN 




BEGIN ERRORU9) J GATTR. TYPTR 


• 


BEGIN SEARCH % 




IF CTPTR = NIL THEN 




BEGIN ERROR (31) J CTPTR 1= 


# 


IF CTPTR*. KLASS 5 PROC THE 



m 



1= NIL ENO ELSE 



1 = JNOECPTR END ? 

HEN 

BEGIN £RR0R(32) ? INSYMBOL ENO ELSE VARIABLE 
END J 

• CHTYPE ? 

IF SATTR. TYPTR # NIL THEN 
WITH GATTR DO 

• IF ACCESS t QRCT THEN 

BEGIN ERR0R(69) I TYPTR 1= NIL ENO ELSE 
IF "(BREG IN CO, LEVELS) THEN ERR0R(69) ; 

• LATTR *= GATTR % 

IF NO t 20 THEN & SY t t= + 
BEGIN 

• IF GATTR. TYPTR t NIL THEN £RROR(52) J SKIP(2Q) 

IF NO * 20 THEN 

BEGIN 

• If GATTR. TYPTR = NIL THEN ERR0R(52) ; 

IF ERRCLCNO] = BEGSY THEN GOTO 20 ? GOTO 10 
ENO 

• END J 

INSYMBOL | EXPRESSION J 
CHTYPE 5 CHTYPES ? 

• TRANSFER(GATTR,RP) ? 

IF NO * 33 THEN r SY t TO/DOWNTO + 
BEGIN 

• IF GATTR. TYPTR t NIL THEN ERROR(70) ; SKIP(33) 

IF NO * 33 THEN 

BEGIN 

• IF GATTR. TYPTR = NIL THEN ERR0RC7C) ? 

IF ERRCLCNO J = BESSY THEN GOTO 20 J GOTO 10 
END 
W END ; 

LCLAS S » = CL 



* NIL) THEN 



1= GATTR.VAL ENO ELSE 



TCT 1= TCT + 
«= TCT I LOF 



1 ; 

1= FALSE 



NOOP ; LJPAQOR 1 = IC ; 
■•STEP +1* GEN15(37B,1,2,6) 
fSTEP -1* GENi5(37B,i,6,2) 
LCA := CA J LCP 1 = CP J RP 



• 



INSYMBGL J EXPRESSION ; 

CHTYPE 5 CHTYPES J 

if (bAUR.TYPl K * NIL) AlLATTR.TYPTR 

BEGIN 

TRANSFER(SATTR,RP> ? 

IF GATTR.KINO = StfAL THEN 

BEGIN LOF 1= TRUE ; LUPBNO 

BEGIN SEN15U3B,7,RP,0) ; 
G£N3G(51B,7,5,LC+TCT> ? 
IF TCT » TMAX THEN TMAX 

END ; 

GEN15(1G3,6,1,3> J 

IF LCLASS = 1 THEN 
ELSE 

GEN3fi (038,3,1, 0) J 

IF ASSCHEC& THEN 

WITH LATTR.TYPTR+ 00 

IF FORM = NUMERIC THEN 

BEGIN IF LATTR.TYPTR t INTPTR THEN 
CHECKBNDS(6,MIN f MAX,ASSERR> 

END ELSE CHECKaNDS(6,0,FCONST*. VALUES, ASSERR) 

TRANSFER(LATTR,6) I 
END ; 

IF NO t 31 THEN *♦ SY t DO * 
BEGIN 

IF 

IF NO 

BEGIN 
IF 
IF 

END 
END ; 
INSYMBOL 



* = 



GATTR.TYPTR t 
t 31 THEN 



NIL THEN ERR0R<59) ? SKIPC31) ? 



GATTR.TYPTR = NIL 
ERRCLtNQJ = 8EGSY 



THEN 
THEN 



£RR0R(59) 
GOTO 20 ; 



GOTO 10 



• 



# 



01 



STATEMENT \ 



IF LATTR.TYPTR t NIL THEN 
BEGIN TRANSFER(LATTR,RP> J 

WITH LATTR.TYPTRt 00 

IF (FORM = NUHERIGJ a( (ABS(MIN) > TW0T017) v ( A8S (MAX) > 

TW0T017)) THEN 

BEGIN GEN3d (713,0,fl,i) J 

GEN15(35B+LCLASS,6,i,0) ? i» +1 OR -1 + 

END ELSE GEN3a<72B,6,l,3-2*LCLASS> 5 

IF LOF THEN GEN3G(71B,2 ,G ,LUP3ND) ELSE 

BEGIN TCT *= TCT - 1 ; GEN3C (513,2, 5 ,LC+TCT) ENO % 

GEN3u(Qi*B,e,e,LJPA0DR> ; NOOP % 

INS(IC,LCP,LCA) J 
END S 



• 
• 






# 



01 END f FOfoTAT ♦ J 

PROCEDURE GOTOSTAT ? 
BEGIN INSYMBOl J 

IF (NO = 1)A<AVAL = EEXITE) THEN 
BEGIN INSYMBOL } 

IF (NO t 2) v(CL t 1) THEN 
BEGIN ERR0R<61) ? SKIPU9) ENO ELSE 
BEGIN FOR IT 1= CEXTABIX DO«NTO i DO 
IF EXTA3IITJ.EXVAL = IVAL THEN 
BEGIN ITi »= EXTABCITKJHPTABIX J 
IF JMPTAStlTll t THEN 
BEGIN IF JMPTA3IIT11 * LEVEL THEN 

BEGIN L0AD8AS£(1,JMPTA8£IT1J> ; GEN15C 63B»5, 1, 0) 
END 
ENO ELSE 
BEGIN G£N3Q{51B,1,C,PARMLIST.IC0) ? 

G£Ni5(63B,5,l,G) 
END | 

GEN3Q<0<tB,Q,3,PARMLIST.LPJMPTA8+ITi) ? GOTO 1 
END I 
ERROR (43) ? 



» IlMbVrtBuL 

END 

• tND ELSE 

IF (NO t 2)v(CL * 1) THEN 

BEGIN ERR0RC61) 5 SKIPU9) ENO ELSE 

• BEGIN IF IVAL > TWQT017 THEN 

BEGIN ERRORC100) ? GOTO 20 ENO ? 
& SEARCH THROUGH LABELTA8LE OF CURRENT BLOCK * 

• FOR IT i= 1 TO CLABIX DO 

WITH LABTA8IIT1 00 
BEGIN 

• IF LABVAL = IVAL THEN & LABEL ALREAOY OCCUREO * 

BEGIN 

i» IF DECL. OCC. GENERATE CODE ELSE CHAIN OCC. + 

• IF FLD2 = THEN GEN3Q (O^tB ,C ,0,FLD3) ELSE 

BEGIN 

G£N3SH&^B,Q,C,0> ; 

• IF CHNIX = THEN 

BEGIN £RR0R<75) ; GOTO 20 ENO ? 
WITH UNDLABtCHNIXJ DO 

• BEGIN 

IT1 i= SUCC ? SUCC 1= FLD3 ; 
FL03 1= CHNIX I PLACE i= CA ? 

• LFTSH 1= CP ', 

END ; 

CHNIX 1= IT1 

• END ; 

GOTO 20 

ENO 

• END ; 

r» LABEL NOT YET MET, ENTER IT INTO LA8ELTABLE * 
GEN3C(048,a,a,0) ; 

• IF CLABIX = MAXLA8S THEN BEGIN ERR0R<74) ; GOTO 20 ENO 

IF CHNIX = THEN 8EGIN ERROR (75) I GOTO 20 ENO ? 
CLABIX 1= CLABIX + 1 ? 

• WITH LA8TA3CCLA8IX3, UNDLABtCHNIX J 00 

BEGIN 

IT1 i= SUCC ; LABVAL 1= IVAL I 

• SUCC t= Q ; FLD2 t= CHNIX ? 

FL03 «= CHNIX ? PLACE 1 = CA ', 
LFTSH t= CP 

• END ? 

CHNIX 1= ITi ; 






• 
# 



• 



01 INSYMBOL J_ 



_ END ; 

• END i» GOTOSTAT + ? 

PROCEDURE WITHSTAT J 

• VAR LTPCT, L87CT1 SHRTINT ? 
BEGIN 

LTPCT 1= J LB7CT i= J 

• REPEAT 

INSYM30L J 
VARIA8 ; 

• WITH GATTR DO 

IF TYPTR * NIL THEN 

IF TYPTR*. FORH t RECORDS THEN £RR0R<38) ELSE 

• BEGIN 

TOP 1= TOP + i ? LTPCT *= LTPCT + 1 ? 
IF TOP * DISPLIMIT THEN ERROR(82) ELSE 

• NITH DISPLAYCTOP] DO 

BEGIN 

fname 1= typtr*. fstfld i 
• if (access = drct)m8reg in £0, level]) then 

begin occur *= cwithj 

cdspl »= dplmt; clev i= bres; 

• END ELSE 

BEGIN 

L0A0ADR(SATTR,6) ; IT t= LC + TCT ; 

• GEN30<51B,6,5,IT) J 

OCCUR t= VWITH ; VDSPL := IT ? 

TCT t= TCT + 1 ? LB7CT « = LB7CT + 1 ? 

• IF TCT > TMAX THEN TMAX t= TCT ? 

END 

END 

• END 

UNTIL NO t 15 ; & SY t , * 
IF NO t 31 THEN 

• BEGIN 

IF GATTR. TYPTR t NIL THEN ERROR(59) J SKIP(31) J 
IF NO t 31 THEN 

• BEGIN 

IF GATTR. TYPTR = NIL THEN ERR0R(59) ? 
IF ERRCLtNQ] * BEGSY THEN GOTO 20 ? GOTO 10 

• END 
END ; 
INSYMBOL ? 






m 



01 STATEMENT 



01 TOP 1= TOP - LTPCT ? TCT 1= TCT - LB7CT J 
END r» WITHSTAT * ? 



• ' ■■- 

PROCEDURE COMPSTAT j 
BEGIN REPEAT 6EGIN 
# INSYM80L ? 






# 












• 



• 



I S1AUMENT J 

IF ERRCLINO] = BESSY THEN 

• BEGIN ERROR(53) | GOTO 1 END ? 
IF NO = 25 THEN e.ELSE* 

BEGIN ERROR tbk) I INSYM30L ? GOTO 1 END 

• END 

UNTIL NO t 16 f? + i 

IF NO t 22 THEN (♦END* ERR0RC68) ELSE INSYMBOL \ 

• ENO ^COMPSTAT* J 

PROCEDURE STATEMENT % 

• VAR LPSW I SHRTINT? 
BEGIN 

IF (NO = 2)a(CL = 1) THEN *»LABEL* 

• BEGIN NOOP J 

IF IV/AL > TW0T017" THEN 
BEGIN ERROR (10 01 J SOTO 1 ENO 5 
% FOR IT »= 1 TO CLABIX DO 

WITH LABTABIITJ 00 
IF LA3VAL = IVAL THEN cFOJND* 

• BEGIN IF FL02 = fl THEN .»MULTIOEF.+ £RR0R{77) ELSE i*FIXUP* 

BEGIN IT1 X- FLD3 ? 

REPEAT WITH UN0LABCIT1J 00 

• BEGIN INS(IC,LFTSH, PLACE) J IT1 1= SUCC END 
UNTIL IT1 = ! 

IT1 «= FL02 3 UN0LABCIT1J.SUCC *= CHNIX J 

• CHNIX 1= FL03 ? FLD2 *= 5 FLD3 1 = IC J 
END ? 

SOTO 1 

• ENO elF, WITH, FOR* ? 
.♦NEW LABEL* 

IF CLABIX = MAXLABS THEN ERR0R<7<t) ELSE 

• BEGIN CLABIX 1= CLABIX +- 1 ? 

WITH LABTABCCLABIX3 00 

BEGIN LABVAL *= IYAL J FL02 1= i FLD3 »= IC ENO | 

• END ? 



# 



• 
• 



# 



# 



• 



# 



* iNSVMauL ? 

IF NO T 19 THEN el* 

• BEGIN ERR0RC6**) 4 SKIP(<+9) END ELSE INSYM80L 5 
END i»IF <NO=2)a<CL=D* ; 

RP u 3 5 

• CASE SPLITSTATCNOl OF 

.♦PASS * 1* eENDSY OR IRRELSY* ? 
elDENT * 21 BEGIN SEARCH J 

• IF CTPTR = NIL THEN 

BEGIN ERR0R<31) J CTPTR »= UNDECPTR END ? 
WITH CTPTR* DO 

• IF KLASS < KONST THEN ERR0R(55) ELSE 

IF (KLASS = PROOa 

((PROCTYPE =. CTPTR) v (PROCTYPE - NIL) J THEN 

• BEGIN ,» PROCCALL * 

IF PROCTYPE a CTPTR THEN 

8EGIN INSYM30L ? IF CTPTR < PREOEFP THEN 

• BEGIN LPSW 1 = CTPTR*. SEGSIZE ', 

CASE LPSW OF 
1,2,3,^,51 GETPUT(LPSW) ? 

• 61 pck ; 

7* unpck ; 

8,9: INSAPP(LPSW) ; 

• 101 READIR ? 

111 WRITEIR J 

121 ALLC I 

• END J 

END ELSE PASSPARAMS ? 
END ELSE SKIPU9) 

• END i»PROCCALL* ELSE ASSIGN J 

END | 

P BEGIN 4- 31 COMPSTAT ? 

• i*IF * kt IFSTAT ? 
#CAS£ + 5i CASESTAT ; 
(►REPEAT* 61 REPEATSTAT ? 

• AWHILE + 71 WHILESTAT ? 
!»FQR * si FORSTAT ; 
*GOTO * 91 GOTOSTAT ? 

• ,*WITH * ifl« WITHSTAT ; 
END ? 

IF ERRCLCNO] = IRRELSY THEN 

• BEGIN ERK0R<5<*) ? SKIP<<+9) END ? 
RP 1= 

ENO eSTATEHENT* ? 



• PROCEDURE TYPEDECLCi/AR TLlSHRTINTJ VAR PUCTPU 
WAR I,L,LL, J,CV,E1,E2,3DISPL I SHRTINT; 

OPT I OPTPWRJ DISPL 1 ADDRESS,* P ACKFLAG ,LERR H BOOLEAN; 

• LASTFLD,PP,P,NXTF,NXTC,NXTA,RTYP 1 CTPJ 

PROCEDURE SKIPTtFNO I SHRTINT) J 

• BEGIN 

WHILE (TERRCLfNOl = IRRELSY) a (FNO * NO) DO INSYM80L? 
END fSKIPT*? 

PROCEDURE TYPERRil I SHRTINT)' 
BEGIN TL *= 0? Pi 1= nil; 

• ERROR(I); SKIPT<<*9); 
END f»TYPERR*; 

• PROCEDURE SUBRANGES AR VAL1,VAL2 I INTEGER? VAR Nl t CTPJ 
P t CTP) 






r»THE FIRST SYMBOL OF SUBRANGE HAS BEEN READ. 

# THE PROCEDURE RETURNS THE TWO BOUND-VALUES IN VALi,VAL2, 

ANU kETUKnS (Ml = POINTER TO TrPE OF CONSTANTS. 

ERRORS I TYPES DO NOT AGREE, TYPE IS NOT INTEGER, CHAR, 

# OR SYMBOLIC, tfALl > VAL2. 

P INDICATES BEGINNING OF SEARCH FOR FIRST SYMBOL IF IT IS 
AN ID. * 

# VAR N2 i CTP? 

BEGIN INCONST<VALi,tfl,P> I 

IF (Ni=NIL) v <N1=REALPTR) v (N1=ALFAPTR) THEN 

# ERR » = TRUE ELSE 

BEGIN IF NO t 19 THEN ERROR(ID) ELSE INSYMBOL ; 
INCONST<VAL2,N2,N£XT) ? 

# IF Nl t N2 THEN ERR 1= TRUE ELSE 

IF VAL1 > VAL2 THEN ERRORC25)? 

END? 

# END ^SUBRANGE*; 

PROCEDURE SU8TYP£(VAR I, J I SHRTINT? VAR P I CTP) J 

# ^EITHER A TYPE-ID FOR A SUBRANGE OR AN EXPLICIT SUBRANGE 

ARE PROCESSED. 

RETURNS I ~ LOWBOUND, J = HIGH80UND, 

# P = POINTER TO TYPE OF CONSTANTS + 
BEGIN 

IF NO = 1 THEN 

# BEGIN SRCHRECiNEXT) ? 

IF CTPTR = NIL THEN SEARCH? 

IF CTPTR = NIL THEN ERRORC12) ELSE 

# BEGIN IF CTPTR*. KLASS = TYPES THEN 

BEGIN IF CTPTR*. FORM > SYMBOLIC THEN ERR0RC13) ELSE 
BEGIN 

# CASE CTPTR*. FORM OF 

NUMERIC: BEGIN I 4= CTPTR*. MIN ? J »= CTPTR*. MAX; 

P 1= INTPTR? 

• end; 

symbolic* begin if (ctptr = realptr) v(ctptr = alfaptr) then 

error(b) else 

• begin i 1= 5 j 1= ctptr*. fconst*. val jes ? 

P * = CTPTR ? 
END 

• END? 

END <*CAS£H 
INSYMBOL? 

• END? 

END .*TYPES+ ELSE 

IF CTPTR*. KLASS = KONST THEN 

• SUBRANGE<I,J,P,CTPTR) ELSE ERR0R<63> ? 

END? 
END fID+ ELSE 

• IF NO IN 12, 71 THEN SUBRANGE( I , J,P, NIL) ELSE 

. ERROR (1) ? 
END .♦SUBTYPE*? 

PROCEDURE SCALDECLCN I CTP)? 
VAR J J J INTEGER ? 

• BEGIN SUBRANGE(I»J,PP,N)? 

IF -ERR THEN 

IF PP*.FORM = SYMBOLIC THEN 

• BEGIN ERR0R(23)? PI * = NIL END ELSE 

BEGIN NEWCP, TYPES, NUMERIC) ? 
WITH P* DO 

• BEGIN NAME *= BLANK? NXTEL t= NIL? KLASS 1= TYPES? 

SIZE i= 1? FORM t= NUMERIC? 
HIN 1= I? MAX i= J? 

• IF I > THEN BITS *= LOG2PLUSKJ) ELSE 

BEGIN JJ 1= ABSCJ) ? 






• 
• 



IF JJ < -I THEN JJ »= 
8ITS 1= L032PLUSKJJ) 
END 

ENO ; 

tl *= i; pi i= 

1= NIL 



-i ; 

+ 1 *SISN BIT* 



p; 



END ELSE Pi 
END (»SCALD£CL*; 



PROCEDURE FIELDLISTCVAR MAXSIZEISHRTINT? VAR VARPTR,NXTF*CTP) ? 
VAR MXL,L,LL,MINSIZE,CASEBITS,I I SHRTINTJ 
P,PP,PP1,PP2,NXTC,NXT,CPTR t CTP; 
TAGFLAG,REP I BOOLEAN? 

PROCEDURE RECERRII * SHRTINT) ; 
BEGIN ERROR(I); SKIPT«t9H END; 



IF IT IS THE ONLY FIELO, 



PROCEDURE A JUST? 

i» MOVE LAST FIELD TO RIGHT. 
CHANGE TO NONPACKEO. 

IF LAST FIELD IS TAGFIELO THEN 00 NOT MOVE. 
INCREASE DISPL, RESET BDISPL * 
BEGIN IF -"TAGFLAG THEN 
WITH LASTFLOt DO 
BEGIN IF BITDISPL 
BITWIDTH 1= 
BITWIDTH J = 



# 
# 



= THEN 
ELSE 
WOROLENGTH - 



•♦ONLY ONE FIELO IN WORD* 



end; 

DISPL 



1= DISPL + i 



bitdispl; 

BDISPL i= 0$ 



# 

# 



ENO fAOJUST*? 

BEGIN 

TAGFLAG *= TRUE? 
REPEAT 

IF NO = 

i i- o; 



NXT t- nxtf; 



26 THEN !»CASE* GOTO 2 



* 
• 

m 



It 



t 1 THEN 
RECERR(ll) ? 
TERRCLINOJ = 



BEGSY THEN GOTO 11? GOTO 12; 



ERR0R(5) 
I 1= I + 



ELSE 
i! 



11* 



IF NO 
BEGIN 

IF 
END? 

SRCHREC(NXT) ; 
IF CTPTR t NIL THEN 
BEGIN N£W{P,FI£LO> J 

WITH P* DO 

BEGIN NAME *= AVAL? NXTEL 1= NXT? KLASS Is FIELD! 
FLDTYPE »= NIL? 

end; nxt i= p; 
end; 

insymbol; 
if no = 15 then 
begin insymbol; 

IF NO t 19 THEN 

TYPED£CL<L,P)? 

IF P * NIL THEN 

IF Pt.FORM > RECORDS THEN 

BEGIN IF PACKFLAG THEN 

BEGIN IF I > 1 THEN ^REVERSE 
BEGIN PP 1= NXT; 

FOR I 1= I DOWNTO 1 DO 
BEGIN PP1 «= PPt. NXTEL? 
PP*. NXTEL 1= PP2J PP2 
PP 1= PPi| 

eno; 

NXT*. NXTEL »= PP? NXT i= PP2? 
END ^REVERSE* ELSE PP 1= NXTt. NXTEL? 
PP1 I* NXT? 
IF^P+j FO RM < POWER THE N 



GOTO 1 
r»NOT t* 



end; 

ERRORU0) 



else insymbol; 



ERROR<33) ELSE 



POINTERS* 



* = Pp: 



# 



• 





BEGIN 




CASE Pt.FORM OF 


NUMERIC 1 


LL 1= P*, SITS J 


SYMBOLIC! 


LL 1= Pfr.BITSIZE; 


POINTER! 


LL I* 18 ; 


POWER t 


LL *= Pt.PWBITSJ 




end; 




REPEAT 




IF BDISPL + LL > WOROLENGTH THEN ADJUST? 




IF LL = WOROLENGTH THEN 




BEGIN PPlt.BITWIDTH 1= 0? 




PPlt.FLOADOR 1= DISPLJ DISPL 1= OISPL + 




END ELSE 




BEGIN PPlt.BITWIDTH 1= LL ; 




PP1+.BITDISPL 1= BDISPLJ 




PPlt.FLOADOR i= DISPL? BDISPL »= 8DISPL 




end; 




PPlt.FLOTYPE 1= P? 




LASTFLO 1= PPl? TAGFLAG 1= FALSE? 






^ ii-x..ifc.w«w«is»-ua.wruj Mljri, i- «ijrt t 1) 



+ ll; 



m PPl *= PPlt.NXTEL? 

UNTIL PPl = PP? 
END ^FORH < POINTER* ELSE 

# BEGIN IF BDISPL t THEN ADJUST? 

TAGFLAG 1= FALSE? 
REPEAT 

# PPlt.BITWIDTH != 0? PPlt.FLOTYPE t= P? 

PPlt.FLOADOR != DISPL? 

OISPL 1= DISPL + L? LASTFLD * = PPl? 

# PPl t = PPit.NXTEL? 

UNTIL PPl = PP? 

END? 

# END r»PACKFLAG+ ELSE 

BEGIN LL 1= DISPL + I*L? DISPL 1= LL ? 
PP 1= NXT? 

# FOR I t= I DOWNTO 1 DO 

BEGIN PPt.FLOTYPE » = P? LL 1= LL - L? 
PPt.FLOAODR 1= LL? PPt.BITWIOTH *= C? 

# PP » = PPt.NXTEL? 

end; 

END? 

# END ■♦FORM < RECORDS*? 
121 IF NO = 16 THEN INSYMBOL ? 

UNTIL (TERRCLtNOl = ENOSY) * (NO t 26)? 

# IF BDISPL t THEN ADJUST; 
MAXSIZE 1= DISPL! VARPTR 1= NIL; 
GOTO 9? 

# 21 r»CASE + 

insymbol; 

if no t 1 then erroru1) else 
# begin srchrec(nxt) 5 

if ctptr t nil then err0r<5) else 

begin new(p, field) ? 

# WITH P* DO 

BEGIN NAME »= AVAL? NXTEL t= NXT? KLASS * = FIELD? 
FLOTYPE 1= NIL? 

# £NO? NXT S= P? 

end; 
insymbol; 

# END <*NO = 1 + ? 

IF NO t 19 THEN ERROR(IO) ELSE INSYMBOL? 
IF NO t 1 THEN ERRORU1) ELSE 

# BEGIN SRCHRECCNEXT) ? 

IF CTPTR = NIL THEN SEARCH? 

IF CTPTR = NIL THEN ERR0RC12) ELSE 

# IF tCTPTRt.KLASS^TYPES) v (CTPTRt.FORM>SYMBOLIC) THEN 

_ERROR17i? 



# 



• 



insymbol; 

IF NO t 27 THEN ERRORU4) 

CPTk »= ctptr; 

IF CPTR t NIL THEN 
IF PACKFLAS THEN 



BEGIN 



NUMERIC* 
SYMBOLIC J 



CPTR*. FORM OF 
t= CPTR*. bits; 
i= cptr*.bitsize; 



CASE 
LL 
LL 

end; 

if bdispl + ll > wordlength then adjust? 
p*,bitdispl *= bdispl? p*.bitwidth t* ll? 

bdispl 1= bdispl + ll! 






i= BDISPL? 



• 
• 

• 



DISPL 
OISPL? 



+ i: 



* 



• 
* 



hi) THEN 



SEARCH? 
ERRCRC12) 



ELSE 



P*.FLDAODR * = DISPL? 
LASTFLD 1= PI CASEBITS 
END r»PACKFLAG* ELSE 
BEGIN P*.FLDAODR « = DISPL? 

P*.BITWIOTH t- 0? 
END? 

Pt.FLDTYPE 1= CPTR? DISPL I* 
MNSIZE * = DISPL? MAXSIZE 1 = 
NXTC 1= NIL? INSYMBOL? 
REPEAT I 1= Q? 
REPEAT 

IF (NQ>2) » (NO=2) a -<CL IN CI, 
BEGIN RECERRC63)? GOTO 3 END ? 
IF CPTR t MIL THEN 
IF NO = I THEN 
BEGIN SRCHREC(NEXT)? 
IF CTPTR = NIL THEN 
IF CTPTR = NIL THEN 
WITH CTPTR* 00 

IF KLASS t KONST THEN ERR0RC63) ELSE 
IF CCPTR*.FORM - SYMBOLIC) a 
CCONTYPE * CPTR) v 
(CPTR*. FORM = NUMERIC) a 

CCONTYPE t INTPTR) THEN ERROR(73) 
IT t= VALUES? 
END i*NO = i+ ELSE 

IF (CL - 1) a (CPTR*. FORM t NUMERIC) 
v {CL s k) a (CPTR t CHARPTR) THEN 
ERR0RC73) ELSE 
IT 1= IVAL? ^END CPTR * NIL* 
NEW<P,TASFIELD) ? 
WITH P* 00 

BEGIN NAME t= BLANK? NXTEL 1= NXTC? 
KLASS *= TAGFIELD? 
TAGVAL i= TRUE? CASEVAL i= IT? 
END? NXTC t- P? I 1= I + i? 
INSYMBOL? 

IF NO = 15 THEN 

BEGIN INSYMBOL ? REP t = TRUE £N0 
ELSE REP 1= FALSE? 
UNTIL "'REP? 

IF NO t 19 THEN ERROR(IQ) ELSE INSYMBOL? 
IF NO = 9 THEN r* ( FIELDLIST ) * 
BEGIN IF PACKFLAG THEN 

BEGIN DISPL t= MINSIZE - 1? 

8DI3PL i = CASEBITS? 
END ELSE OISPL »= MINSIZE? 
INSYMBOL? FI£LDLIST(MXL,PP,NXT) ? 
IF NO t 10 THEN ERR0R(9) ELSE INSYMBOL? 
END ELSE 

BEGIN PP 1= NIL? MXL 1= MINSIZE END? 
P »= NXTC? 
FOR I 1= I Q8HNT0 1 DO 



# 

• 

# 
• 



ELSE 



# 



WITH Pt 00 

# BEGIN CASESIZE » = MXL? VARIANTS 1= PP? 

P * = rtXTEL? 
END? IF MAXSIZE < MXL THEN MAXSIZE 1= MXL; 

# IF NO = 16 THEN INSYMBOL? 

UNTIL NO > 2; 
NEW(P,TAGFIELD)? 

# WITH Pt DO 

BEGIN NAME 1= BLANK? NXTEL 1= NIL? KLASS 1 = TAGFIELOI 
CASESIZE i= MINSIZE? VARIANTS t= NXTC J 

# TASVAL 1= false; casetype t= cptr; 

end; 

VARPTR *= P? 

# END fNO = i*; 

9i nxtf «= nxt; 

END i» FIELDLIST +; 



• 



r»TYPEDECL + 
BEGIN PACKFLAG 



1= FALSE 









m 

m 
# 



IF NO = i» 2 THEN .♦PACKED* 

BEGIN PACKFLAG 1= TRUE; INSYM80L END,* 

IF NO = 1 THEN 

BEGIN SRCHREC(NEKT); 

IF CTPTR = NIL THEN SEARCH,* 

IF CTPTR = NIL THEN 

BEGIN ERR0R(12); PI 1= NIL? SKIPT(16) END ELSE 

BEGIN IF CTPTR*. KLASS = TYPES THEN .♦TYPE-ID* 

BEGIN TL 1= CTPTR*. SIZE? PI *= CTPTR; INSYMBOL END ELSE 
IF CTPTR*. KLASS = KONST THEN SCALOECL (CTPTR) ELSE 
TYPERRUiU 

end; 

END ,♦10+ ELSE 

IF NO = 9 THEN *» SYMBOLIC * 

BEGIN CV := O; LERR %= ERR ; ERR I = FALSE ?NEW<P, TYPES, SYMBOLIC) I 

WITH P* DO 

BEGIN NAME i= BLANK? NXTEL 1= NIL? KLASS 1= TYPES? 

FORH 1= symbolic; 

ENO? RTYP 1= P; NXTC 1= NIL? 

REPEAT INSYMBOL? 
IF NO t I THEN 
BEGIN ERROR(ii); SKIPT(i5)5 

GOTO 2? 
END? 
SRCHREC(NEKT)? 

IF CTPTR t NIL THEN ERRORO) ELSE 
BEGIN NEW<P,KONST) ? 
WITH P* DO 

BEGIN NAME 1= AVAL? NXTEL X- NEXT? KLASS %- KONSTf 
CGNTYPE t= RTYP? 



# 
• 
• 
# 



SUCC 1= NXTC? 
i? NEXT 1= P? 



NXTC *= P? 



2* 



VALUES *= CV? 

END? CV *= CV + 
ENO? 

INSYMBOL? 
UNTIL NO t 15| 

NEWCP, TYPES, POWER) ? 
WITH P* DO 
BEGIN NAME t- BLANK? NXTEL I- NILJ KLASS 1 = TYPES? 

SIZE 1= 1? FORM 1= POWER? 

ELSET 1= RTYP? PW6ITS 1= CV 
END? 

WITH RTYP* 00 
BEGIN FCONST *= NEXT? SIZE 1= 1? 

8ITSIZE 1= L0G2PLUSKCV - 1) ? 
END? 

ERR THEN PI is NIL ELSE 
JI N_ ERR. 1=_L ERR_ 3_ Pl_l =_ RT YP_£ND ? 



• 



+ 1 



PWSET l- Pi 



IF 

BEG 



^ tl i= i ; 

W IF NO ^ 10 THEN TYPERR<9) ELSE INSYMBOL ; 

fc.NO f* SVfcUOLiC * cLSt 
IF NO IN £2,71 THEN •» SU8RANGE + 

# BEGIN LERR t= ERR? ERR t= FALSE? 

SCALOECL(NEXT) ? 

IF ERR THEN £RR0R(6) ELSE ERR 1= LERR 

# END ^SUBRANGE* ELSE 

IF NO = 36 THEN <♦ STRUCTURED TYPES * 
CASE CL OF 

# ^ARRAY* it 

BEGIN INSYMBOL? 

IF NO t 11 THEN 

• begin typ£rr<98>? 

if terrclen03 = 3e3sy then typeoecl (i ,ctptr> ? goto 195 
eno; 
£ NXTA *= nil; 

REPEAT N£W<P,TYP£S»ARRAYS) ? 
WITH P* DO 

# BEGIN NAME *= BLANK? NXTEL «= NIL? KLASS * = TYPES? 

FORM 1= ARRAYS? AELTYPE »= NXTA? 

& AELTYPE TEMPORARILY LINKS SU8ARRAYS * 

# END? NXTA *= P? 

INSYMBOL? 

LERR *= ERR? ERR «= FALSE? 

# SU8TYP£<I,J,P) ? 

IF ERR THEN 

BEGIN ERROR (6)$ SKIPTU5)? I i- 0? J t= 0? P I- NIL 

# END ELSE 

ERR * = LERR? 
WITH NXTA* DO 

# BEGIN LO 1= I? HI 1= J? INXTYPE 1= P END? 

UNTIL NO * 15? 

IF NO t 12 THEN 

# BEGIN £RR0R(37)? SKIPTC27)? 

IF TERRCLCNQ3 = 8EGSY THEN GOTO 11? 
IF NO = 27 THEN 
BEGIN INSYMBOL? GOTO 11 END ' ? 
IF NO * 12 THEN 

BEGIN PI *= NIL ? TL i= 0? GOTO 19 END? 
END? 
INSYMBOL? 

IF NO t 27 THEN ERR0RU4) ELSE INSYMBOL? 
11 * TYPEDECL (TL, CTPTR) ? 

IF CTPTR t NIL THEN 
IF CTPTR*. FORM > RECORDS THEN 
BEGIN ERROR (3Q)| CTPTR t= NIL END ELSE 
BEGIN 

REPEAT 

WITH NXTA* DO 

BEGIN MULOPT(TL,£i,E2,OPT) ? 

OPTTYP t= OPT? EXP1 %- £1? EXP2 1= E2? 
TL 1= TLMHI - LO Mil 
SIZE 1= TL? 

P t~ AELTYPE? AELTYPE 1= CTPTR? 
ENO? 

CTPTR •* NXTA? NXTA t= P? 
UNTIL NXTA = NIL? 

f» NO*i TL = SIZE OF ARRAY, CTPTR POINTS TO IT * 
END? PI \- CTPTR? 
191 ENO i*ARRAY+? 
•►RECORD* 21 

BEGIN NEW<P, TYPES, RECORDS) ? 
WITH P* DO 

BEGIN NAME 1= BLANK? NXTEL •* NIL? KLASS t= TYPES? 
FORM t~ RECORDS? 



end; rtyp t= p? 

£ INSYMBOL ? NXTF 1= NIL? 

oispl * = o; boispl *= u? lerr i= err; err i= false; 

FIELDLIST<TL,P,NXTF)? 

• IF NO # 22 THEN ERROR<i7)? 
IF ERR THEN TYPERRdBJ ELSE 
WITH RTYP* DO 

• BEGIN SIZE *= TLJ FSTFLO 1 = NXTF? RECVAR i= P? 

pi i= rtyp; err t= lerr; 
end; 

# if no = 22 then insymbol? 

£NO f RECORD*; 
fFILE* 31 

• 8EGIN INSYMBOL; 

IF NO = 2? THEN *OF* 

BEGIN I 1= 8 | INSYMBOL END ELSE 

• BEGIN INCONST(I,PT,N£XT) ? 

IF <I<0)*<PT*INTPTR) THEN 
BEGIN ERR0R<95) ? I 1= END J 

# if no * 27 then error(ia) else insymbol j 
end ; 

typeoeclctl, ctptr) j 

• IF CTPTR t NIL THEN 

IF CTPTR+.FORM > RECORDS THEN 
BEGIN ERRORC30)? PI t= NIL END ELSE 

• BEGIN L »= CTPTRt.SIZE? 

LL i= L Oiy hh + i ; 

IF LL < I THEN LL 1= I ? 

• LL 1= <<LL*6W DIV L + 1) * L £ 

NEW(P, TYPES, FILES)? 

WITH Pt DO 

• BEGIN NAME *= BLANK? NXTEL * = NIL? KLASS 1= TYPES? 

FORM J= FILES? SIZE 1= LL? FELTYPE 1= CTPTR? 
END? 

• TL *= LL? Pi *= P£ 
END ELSE Pi 1= NIL? 

END cFILE*? 

• fGLASS+ M 

BEGIN NEH<P, TYPES, CLASSS) ? 
WITH P* DO 

• BEGIN NAME t= BLANK? NXTEL 1 = NIL? KLASS t= TYPES? 

FORM := CLASSS? 
END? 

• INSYMBOL ? 

IF NO = 27 THEN 

BEGIN I != 180 ? INSYMBOL END ELSE 

• BEGIN INCONST(I,PT,NEXT> ? 

IF <I<G)v(PT*INTPTR) THEN 
BEGIN ERR0R<6> ? I I = G END ? 

• IF NO t 27 THEN ERROR(l^) ELSE INSYMBOL ? 
END ? 

TYPED£CL<TL, CTPTR) ? 

• IF CTPTR t NIL THEN 

IF CTPTRt.FORM > RECOROS THEN 
BEGIN ERR0R(3fl)? Pi 1= NIL END ELSE 

• BEGIN TL t= TL*I + i? 

P+.SIZE I* TL? P*.PELTYPE *= CTPTR? 
Pi i= P? 

• END ELSE Pi 1= NIL ? 
ENO ^CLASS*? 

i»S£T* 5* 

• BEGIN INSYMBOL? 

IF NO = 27 THEN INSYMBOL ELSE ERRORdU? 
LERR *= ERR? ERR t= FALSE? 
SUBTYPE(I,J,P) ? 

IF ERR THEN TYPERR<6) ELSE 






• 



BEGIN ERR 1 = LERR? 
CASE P+.FORM OF 

nomekIGi l*- (I < oj » (j > worolength - zt then 
begin err0r(6>; pi 1= nil end else 

• pi 1= pnumptr? 

symbolic i begin if p = charptr then j * = wordlength - 2 j 

if j > worolength - 2 then 

• begin error(6) j pi *= nil eno else pi * = pt-.pwset 

end; 

ENO r*CASE*| 

• TL * = i; 

ENO i»-£RR*; 
ENO r»SET*5 

ENO fSTRUCTUREO TYPES* ELSE 
IF NO = 18 THEN r»POINTER* 

• BEGIN INSYMBOL; 

IF NO t i THEN TYPE RR<il I ELSE 

BEGIN TL « = 11 NEWtP, TYPES, POINTER); 

• WITH P + DO 

begin name t= blank; nxtel 1= nil; klass i- types; 
form 1 = pointer? size 1= 1| 
• end; 

srchrec(next); 

if ctptr = nil then search,' 

• IF CTPTR t NIL THEN 

IF CTPTR*. VTYPE = NIL THEN CTPTR 1 = NIL; 
IF CTPTR = NIL JHEH ^UNDECLARED CLASS* 

• IF PTX > PTLIMIT THEN 

BEGIN ERROR(92)? Pi 1= NIL; INSYMBOL ENO ELSE 
WITH PTLISTIPTX1 , P* DO 

• BEGIN HNAME f= AVALS PPTR 1= P\ 

DOMAIN 1= P; ELTYPE *= P; 

PTX X- PTX + i; Pi t- p; insymbol; 

• END ELSE 

WITH CTPTRt DO 

IF (KLASS = VARSi * ( VTYPE* . FORM = CLASSS) THEN 

• BEGIN P*. DOMAIN t= CTPTR; 

Pt. ELTYPE t- VTYPEt.PELTYPE? 
Pi * = P| INSYMBOL; 

• ENO ELSE TYPERR<i5); 

end; 
end f»pointer+ else typerru8); 

• ENO i*typedecl*; 

PROCEDURE BODY (SURRPTR, FIRSTENTRY ICTP) ; 

• LABEL 1! 

CONST INP=0 ,PRINT = l ! ,OUT=2,PUNCHs3,£XT=if,SCRATCH = 5; 

• VAR I, J i integer; 

OLDLEV I RG3; 
LCl,TL,LL,yLC,FSTIX,LCA,LCP I SHRTINT J 

• N,P,PROCPTR,LFIRSTENTRY i ctp; 

TYPID I ALFA ; LCH I CWORO J 

• PROCEDURE FINDSEMICOLON; 

BEGIN IF NO * 16 THEN 

BEGIN ERROR(53i; SKIPC16); 

• IF NO t 16 THEN GOTO EXIT i? 

end; insymbol; 
end ffindsemicolon+; 

procedure varoecl; 






• 



LABEL 10 ? 

# VAR AT I ADDRESS^ I,J,FPX l SHRTINT? 

PROCEDURE FILERR1 

# BEGIN LRROR(95)J SKIP(12>; GOTO EXIT 10 END? 

8EGIN INSYMBOLJ 

# WHILE NO = 1 DO 
BEGIN I t= O; 

REPEAT 

# SRCHR£C!N£XT)J 

IF CTPTR * NIL THEN ERROR(8) ELSE 
BEGIN NEW(P,VARS>; 

# WITH P+ DO 

BEGIN NAME i= AVAL? NXTEL 1= NEXT? KLASS 1= VARS1 
VKIND t= actual; VTYPE 1= nil; 

# vlevel * = level ; 

end; 

next up} i * = i + 1? 

• end; 

insymbol; 

if no = 11 then >• t in, out, ext, print, punch 3 + 

• if level > then filerr else 

begin insymbol; 

if filtop = fillimit then £rr0r!92) else 

# begin filtop 1= filtop + 1? 

with filptscfiltopj do 
begin ptr 1= p; 

# if (no = 3) * (cl = 7) then & in * 

spec * = inp else 
if no = 1 then 

• if aval = eojte then spec 1= out else 

if aval = eexte then spec 1= ext else 

if aval = eprinte then spec 1= print else 

# if aval = ipunchr then spec 1= punch 

else filerr else filerrj 

END r»WITH+; 

• end; 

INSYMBOLJ IF NO t 12 THEN FILERR; 
INSYMBOLI 

# END fNG = 11+ ? 

ERR *= false; 
IF NO = 15 THEN 

# BEGIN INSYMBOL; 

IF NO t 1 THEN 

BEGIN ERROR <11M GOTO 10 END? 

# END ELSE IF NO t 19 THEN ERRORU0); 
UNTIL NO t 1 | 

IF NO = 19 THEN INSYMBOL 

# ELSE IF "ERR THEN ERROR! 10) I 

n *= next; err t= false; 

TYPEOECL(TL, CTPTR) ; 

# IF hRR THEN GOTO 10 ; 

lc i= lc + i*tl; ll t= lc; fpx i= filtop; 

FOR I »= I OO^NTO 1 00 

# WITH N* DO 

BEGIN LL 1= LL - TL ? 

VTYPE t= ctptr; 

# IF CTPTR t NIL THEN 

IF CTPTR*. FORM = CLASSS THEN 

BEGIN f* CHECK FOR PREDECLAREO CLASS + 

# TYPID 1= NAME; P t- CTPTRt,P£LTYPE; 

IF PFTOP = FILLIMIT THEN ERR0RC92) ELSE 

BEGIN PFTOP is PFTOP + 1J PFLtPFTOP] 1= LL END; 

# FOR J t= PTX - 1 DOWNTO DO 

WITH PTLISTfJJ DO 









# 
# 



IF HNAME = TYPIO THEN 
9 BEGIN PPTR*. DOMAIN » = N{ 

PPTK* .tLTYPE l= p; 
PTX la PTX - 1; 

# HNAME 1= PTLISTtPTXJ. HNAME? 

PPTR t = PTLISTtPTXJ.PPTR? 

END & WITH, FOR * ? 

# VADOR * = LL ? 

END r* CHECK CLASS * ELSE 
IF CTPTRt.FORM = FILES THEN 

# 3EGIN 

IF FILPTS[FPX].PTR * N THEN ^SCRATCH FILE* 
IF FILTOP = FILLIMIT THEN ERRORC92) ELSE 

# BEGIN FILTOP 1= FILTOP + 1J 

FILPTStFILTOP].PTR 1= N? 
FILPTS£FILTOP].SPEC 1= SCRATCH? 

# END .♦SCRATCH FILE* 

ELSE FPX i= FPX - 1? 
VADDR t= LL? 

$ if level > then 

t* take efet into account for address * 
8egin if ctptr*. feltype = charptr then 

• j *= alfaleng + 7 else j j= 7 ? 

lc * = lc * jj vaddr 1= vaddr + i*j - 7? 
end; 

• end .♦form = files* 

ELSE VADDR t- LL J 
N t= NXTEL1 

# END »» FOR I * ? 
10 1 FINDSEMICOLON'? 

END eWHILE NO = 1*,' 
$ IF NO = kl THEN & VALUE * 

begin if level t sj then err0rc22)? 
insymsol; 

# WHILE NO = i DO 

BEGIN SRCHREC(NEXT) ? 

IF CTPTR = NIL THEN SEARCH,* 

# IF CTPTR = NIL THEN 

BEGIN ERROR(12)f FINDSEMICOLON; GOTO 20 END? 

IF CTPTR*. KLASS t VARS THEN 

# BEGIN ERRCR<26)J FINOSEMICQLON* GOTO 20 ENO| 

WITH CTPTR* DO 

BEGIN IT *= VADOR? 

# IF VLC = THEN 

BEGIN VLC i= IT? LL *= IT? AT 1= IT; END? 
IF IT < LL THEN ERR0RC27) ELSE 
$ WHILE IT > AT DO 

BEGIN PUT(PASCLGO) ; AT 1= AT + 1 END; 
INSYMBOL 5 

# IF iUO t 3) * (CL t 6) THEN ERRORS) ELSE INSYMBOL; 

IF NO - 9 THEN ,» LIST * 

BEGIN 

# REPEAT INSYMBOL; INCONSTC I ,PT,N£XT) ? IT1 1= i; 

IF <NO = 6) a (CL = 1) THEN * * * 
BEGIN IT1 t= I? INSYMBOL; 

# INCONST(I,PT,NEXT) J 

EN 0| 

IF "* ERR THEN 

# BEGIN 

FOR J i= 1 TO IT1 00 

BEGIN PASCLGOt t= I; PUT(PASCLGO) END? 
AT := AT + ITi; 

END .♦"'ERR*; 
IF "(NO IN 115,1031 THEN ,♦ NOT , NOR ) * 

# BEGIN ERR0R(2Q); FINDSEMICOLON J GOTO 2D END? 

UNTIL NO = 10 ; INSYMBOL? 



# 



_ END ELSE 

• 3EGIN INCONSTU,PT,NEXT)| 

IF -£*R THEN 

BEGIN PASCLGO+ 1= 1} PUT ( PASCLGO) ? 

• AT t= AT + i? 

end; 
end; 
• ll := it + vtype^.size? 

if ll < at then err0r(23> ? 
findsemicolon? 

• ENO -WITH*? 

23 t tND -WHILE NO = 1*3 

FOR AT := AT + i TO LC 00 PUT(PASCLGO) ? 

• ENO -VALUE* ELSE VLC *= LC? 
ENO - VARDECL + ? 

• PROCEDURE FORMPARM? 

- < HAS BEEN VERIFIED ANO NEXT SYMBOL READ * 
LABEL 3; 

• VAR SPEC I IOGLASS? REP I BOOLEAN? 

PROCEDURE FORMERR? 

• BEGIN ERRORQD? SKIP(iO)? GOTO EXIT 3 END? 

BEGIN SPEC *= KONST ? 

• i* REPEAT 

IF NO = <f5 THEN -PROCEDURE* 
REPEAT INSYMBOL? 

• IF NO t 1 THEN ERROR(ll) ELSE 

BEGIN SRCHREC(NEXT) ? 

IF CTPTR t NIL THEN ERR0R(81 ELSE 

• BEGIN NEWCP,PROC> ? 

WITH Pt 00 

BEGIN NAME 1= AVAL? NXTEL i= NEXT? KLASS *= PROC? 

• PROCTYPE 1= P; PROCKIND 1 = FORMAL? 

PRQCAODR *= LC? PROCLEVEL I- LEVEL? 
FORMALS *= NIL? SESSIZE »= 

• ENO? LC 1= LC + i? NEXT *= P? 

END -CTPTR = NIL*? 

INSYMBOL ? 

• END? 
UNTIL NO t 15 

ELSE -NOT PROCEDURE* 

• BEGIN 

IF NO t 1 THEN 

BEGIN IF NO = 43 THEN SPEC I- WARS ELSE 

• IF NO = kl THEN 

BEGIN ERR0R(24) ? SPEC »= KONST END ELSE 
IF NO = **<+ THEN SPEC 1= PROC ELSE FORMERR? 

• INSYMBOL 

END ELSE SPEC i= KONST? 
IF NO t 1 THEN FORMERR? 

• REPEAT 

SRCHREC(NEXT) ? 

IF CTPTR t NIL THEN ERR0RC3) ELSE 

• BEGIN 

IF SPEC = PROC THEN 
BEGIN N£W<P,PROC) ? 

• WITH P* DO 

BEGIN KLASS 1= PROC? PROCTYPE t= NIL? 

PROCKIND 1= FORMAL? PROCAODR *= LC ? 

• PROCLEVEL *= LEVEL? FORMALS 1= NIL? 

SEGSIZE i = 

_ ENO! 

• END ELSE 

BEGIN NEW(P,VARS) ? 



• 
• 



# 






# 
# 



WITH Pt 00 

• BEGIN KLAS5 *= VARS; VTYPE 1= NIL? 

If- SPEC - VAKS THEN VK1N0 1 = FORMAL 
ELSE VKINO 1= actual; 

• VAODR 1= LCJ VLEVEL t= LEVEL 

ENO 

end; 

• Pt.NAME 1= AVAL? Pt.NXTEL t= NEXT; 

LC 1= LG + 1| NEXT 1= P? 

END eCTPTR = NIL+J 

• insymbol; 

if no = 15 then 
begin insymbol,' 

• IF NO = 19 THEN ERRORCll)? 

ENO ELSE IF NO t 19 THEN GOTO k\ 

UNTIL NO t ij 

• m if no * 19 then error(io) else insymbol? 

if no * 1 then formerr; 
search; 

• if ctptr = nil the*} 

begin err0r(12); goto 2 end; 
if ctptr+.&lass t types then 

• BEGIN ERR0RC18I ? GOTO 2 END ; 

N 1= next; 

REPEAT 

• IF SPEC = PROC THEN 

IF Nt.PROCTYPE = NIL THEN 

IF CTPTR*. FORM > POWER THEN 

• BEGIN £RROR<93j; N 1= NIL END ELSE 

BEGIN N^.PROCTYPE 1= CTPTR; N 1= N*.NXTEL END 
ELSE H «= NIL 

• ElSE IF N*. VTYPE = NIL THEN 

BEGIN N*. VTYPE l« CTPTR; 
IF Nt.VKIND = ACTUAL THEN 

• IF CTPTR*. FORM IN [CLASSS, FILES] THEN £RR0R<24) 

N »= Nf.NXTEL 

END 

• ELSE N * = NIL 

UNTIL N = NIL? 

2t insymbol; 

• ENO r»NOT PROCEDURE*; 

31 REP t= NO IN CI, kl, 43#<+4, 451J 
IF NO = 16 THEN 

• BEGIN INSYMBOL? REP *= NO t 10 END; 



# 



UNTIL ^REP; 












IF NO * 1C THEN 












BEGIN ERR0R(9); SKIPdD); 










IF NO IN [i+1,43,^ 


k,k5i THEN GOTO 


i; 








end; 












^REVERSE POINTERS* 












fANO RESERVE LOCAL CELLS FOR COPIES 


OF 


MULTIPLE 


VALUES 


+ 


N Is NEXT; NEXT 1= 


nil; 










WHILE N t NIL 00 












BEGIN P 1= NJ 












WITH P* DO 












BEGIN N 1 = NXTELJ 


nxtel i= next; 










IF VTYPE t NIL 


THEN 










LF tKLASS = VARSJMVKINO = ACTUAL) * {VTYPEt 


.SIZE 


* 


BEGIN VADDR *= 


lc; 










LC «= LC + 


VTYPEt. SIZE 










END 












end; 












NEXT t= P 












end; 












END r»FORMPARM*; 













• 



1) THEN 



PROCEDURE 
CONST DI 
VAR N,P 
BEGIN 

WITH PMD 

BEGIN IF 

BEGIN 

BEGIN 

PKIND 

END? 

PUTCPMDF 

N t= NEX 

WHILE N 

WITH N* 

BEGIN OU 

IF KL 

BEGIN 

IF 

eno; 

IF OU 
BEGIN 

BE 



UTPMDCSURRPTR 1 CTP) ? 
RECT = Q, INOIRECT = ij 
i otp; AUR,ACC I shrtint; 



OUT * BOOLEAN? 



FILE* DO 
SURRPTR = NIL THEN 
PNAME 1= i(HAIN)i? SA 1 = IC ENO ELSE 

pname 1 = surrptrt.name; sa 1= surrptr*. procaddr end? 
1= procdr? link «= lastlinkj count 1= 0? 

ile); pmctr t = pmctr + 2? lastlink *= pmctr; 
t; 

t NIL DO 
DO 

t » = false; acc i= oirect? 

ASS s VARS THEN 

out t= true; p 

VKIND = FORMAL THEN 



1= vtype; adr i= vador; 
acc i= indirect; 



m 



EN 
PU 

end; 

N 1 = 

ENO i»WIT 

END .»outpmd 

PROCEDURE E 

i* GENERATES 

TO INITIA 

LOCAL CLA 

CONST OP 

VAR IT1, 

BEGIN CA i= 

IF LEVEL 

BEGIN f»P 

GEN15 

GEN15 

GEN3Q 

LCA I 

IF LE 

fCOOE 

FOR I 

WITH 

BEGIN 

UN 

WH 

RP 

GE 

GE 

GE 

IT 

IF 

IT 

GE 

GE 



T THEN IF Pt.FORM < POWER THEN 
WITH PMQFILE* DO 

GIN PNAME *= name; PKIND 1= obj; 

Pt.FORM = NUMERIC THEN TYP »= 1 
P = REALPTR THEN TYP 1= 2 ELSE 
P = ALFAPTR THEN TYP 1= 
P s CHARPTR THEN TYP «= 
P = 800LPTR THEN TYP t= 
Pt.FORM = SYMBOLIC THEN 
:= adr; ACCESS 1= acc; 



• 
• 



ELSE 



3 ELSE 
h ELSE 
5 ELSE 
TYP 1 = 



PMCTR 1 = PMCTR ♦ 2; 



CODE, CODE 
OPEN LOCAL 



N I 

LCX 



ctp; 

1= 



IF 
IF 
IF 
IF 
IF 
IF 
RLA 
D? 

t(pmdfile) ; 
nxtel; 

H, WHILE*? 

+ ; 



nterbody ; 

procedure entry 
lize efets and to 
sspointers* 

N = lfli»B ; 

IT2 S shrtint; 
c ; cp *= <* ; 

* THEN 
ROCEOURE ENTRY CODE* 
C76B, 0,5,0) 5 GEN15{2QB,C,0,18) ; 
<12B,7,7»Q) ; G£Ni5(668,5,6,0> ? 
(5iB f 7,5,1) J GEN3Q(61B,6,6,0) ? 

= ca ; lcp i= cp ; 

VEL t 1 THEN GEN15<56B,6,5,a> ? 

TO INITIALIZE EFETS* 
T *= FILEVCLEVELI TO FILTOP DO 
FILPTS[ITl.PTRt 00 

PACK(NAME,LCH,ii ; IT2 *= 7 | 

ILE LCHCIT2J = = = DO IT2 1= IT2 - 1 J 

i= 0; LDC3TC0R0<NAME)) ; 
N15<%38»S,e,6*IT2) ; GEN15(113,6,Q,1> J 
N3u <51B,6,5,VA00R+2) ; 
HZ* (718,6,0, VTYPEt.FELTYPEt. SIZE) ; 
1 * = 2M10B t SCRATCH **EOF AND SPEC+ ); 

VTYPEt.FELTYPE * CHARPTR THEN IT1 i = IT1 
1 *= 128*IT1 + 3SB ; .»MASK* 
N3Q <71B,Q,0»ITi)f 

N15 (20 8,0 ,0,^3.1 ? GEN15(128,6,6,Q> ; 
N30 (SIB, 6, 5-, VAOOR+1) ; 



i ELSE TYP IM! 



# 



FILES, AND CODE TO INITIALIZE 



# 
• 
• 
# 



* i; 



GEN3C (718,6,5, VADDR+7) ; 

# 3EN3iH51B,6,5, VADQR+3) 5 

b£N3« (7 28, to, 6, VI YPEf.SlZE) ; 
GEN3ii (51B,6,5, VADOR+6) J 

# end; 

END ELSE 
BEGIN 

# ,*MAIN PROGRAM, SAVE X7,B5 SET B6* 
GEN15(56B,7,5,0) ? GEN15 (768,7,5,0) J 

GEN3G (518,7, 3,PARMLIST. ICO) J SEN30 (613 ,6,5,0) J 

# lca «= ca ; lcp « = cp ; lc i= i ; 

end ; 

if stoflcheck then gen30 c068,6 ,^,stoflerr) 5 

# .♦copy multiple values into local cells* 
if sjrrptr * nil then 

BEGIN N t~ SURRPTRf.FORMALS; IT » = 2£ 

# WHILE N t NIL DO 
BEGIN IT *= IT + 15 

WITH N* 00 

# BEGIN IF VTYPE t MIL THEN 

IF (KLASS = VARS)a(VKINO = ACTUAL) a (VTYPE*. SIZE * 1) THEN 
8EGIN G£N30(51B,1,5,IT) 5 GEN30 (71B, 2, 5,VADDR) 5 

# GEN3y (61B,7,0,VTYP£+.SIZ£-1) J N00P5 IT2 I- IC 5 

SEN15 (538,3,1, 7) J GEN1 5(10 8,6, 3, ) J 
GEN15(53B,6,2,7> ? GEN30 (618,7 ,7 ,-1) ? 

# GEN30(G63,7,a,IT2> 

END? 

N 1= NXTEL 

# END 
END 

END? 

# r»CODE TO OPEN FILES* 

IF LEVEL * THEN IT2 «= 5 ELSE 

BEGIN IT2 t= 0; GEN30(613,7,0,INPT+1) 5 

# jumpto(getc) 5 ^get(input)* 
end; 

for it »= filevclevel] to filtop do 

# begin it1 »= filptscit1.ptr+.vaddr <■ 1} 

gen3u (618,7,it2,it1) ? jumpto(opn)? 

IF FILPTStlTl.SPEC IM £INP,EXT] THEN 

# BEGIN GEN30 (613,7, IT2,IT1) 5 

IF FILPTS£IT].PTR*. VTYPE*. FELTYPE = CHARPTR THEN 

jumpto(getc) else jumpto(getb) ; 

# end; 
end; 

i»COOE TO INITIALIZE CLAS5POINTERS+ 

# FOR IT 1= PILEVtLEVELJ TO PFTOP DO 
BEGIN IT1 1= PFLIITJ ; 

SEN30 (713,7, IT2,ITH-1I J GEN30 ( 513, 7,IT2, IT1) 5 

# END ; 

PFTOP := PILEVCLEVELJ - 1 ? TCT 1= J TMAX *= J CLABIX *= ? 
END «*ENTERBODY± ; 

PROCEDURE LEAVE800Y J 
^CALLED AT PROCEDURE END. GOES THROUGH LABELTA8LE LA8TAB AND 

# EXITTABLE EXTAB, UPDATING CODE, AND GENERATES PROCEDURE EXIT CODE* 

CONST CLS = 10 53 ', 
VAR IT2,IT3 I INTEGER? 

# PROCEDURE ERRMESS AGE (ALFI ALFA J VAL1SHRTINT) 5 
BEGIN ERROR(i»3) 5 WRITE(EOL) 5 PRTERR ', 

WRITE(= =,ALFi6,VAL J6 5 ,EOL) ; 

# IF "EGLFLAG THEN WRITE((E = )»CHCNT + 3) 
END ,*ERRMESSASE* ? 

BEGIN IF LEVEL = THEN IT2 t= ELSE IT2 1= 5 ? 

# FOR IT t= FILEVtLEVELJ TO FILTGP DO 
BEGIN GEN53 (61B, 7, IT 2 , FILPTSC IT J .PTR* . VADOR+1) ; JUMPTO(CLS) 



• 



m 
m 



# 
• 



end ; 
# filtop 1= filevclevelj - i j 

if LEVcL * C THtN r»PROG£OUKE EXIT CODE* 
BEGIN GEN30(51B, 1,5,1) J GEN15 <66B ,6,5 ,0) ; 

• GEN15<63B,7,1,0) ; 3EN15 <20B, 1,0,42) ? 
GEN15<63B,5,1,0) ? 

END ELSE r*MAIN, RETURN TO MONITOR* 

• BEGIN GEN15(56B, 1,5,0) ? GEN15 (638,7,1 ,0) END 5 

GEN3G (w2B, 7,0,0) I LC *= LC ♦ TMAX ; INS (LC, LCP,LCA) ? 
FOR IT 1 = 1 TO CLABIX OO 

• WITH LABTABIITJ 00 

BEGIN IF FLD2 > THEN fUNOECLARED LABEL* 
BEGIN 

• £RRMESSAGEf=LA3ELt=,LA3VAL) ? 

UNDLABCFL02J.SUCC *= CHNIX J CHNIX t= FLD3 5 

ENO elF FLD2 > 0* J 

• ENO <*WITH, FOR* ? 

FOR IT 1= FSTIX TO CEXTA8IX DO 
WITH EXTABLIT3 00 

• BEGIN FOR IT1 « = 1 TO CLABIX DO 

WITH LA8TABIIT1J 00 
IF LABVAL = EXVAL THEN 

• BEGIN IF FL02 > THEN ERRMESSAG£(=£XIT »= ,EXVAL) ELSE 

BEGIN IT2 i= JMPGST ; INSERT (LC ,30 , IT2) ? 

INSERT(FL03,Q,IT2) | JMPTA3C JMPT ABIX] 1= IT2 

• END ; 

GOTO 2 

ENO i»IF, WITH, FOR* J 

• £RRH£SSAGE(=£XITt =,EXVAL) 5 









f END f*WITH, FOR* 4 



CEXTAdIX *= FSTIX - 1 ? 
WRITOUT ? 

IF CtVcL = U THtN t- WKlIE OUT JUMPTABLE + 
FOR IT 1= G TO JMPMAX 00 

BEGIN PASCLGO* 1= JMPTA3CIT1 ? PUT(PASCLGO) END 
END r*LEAVE30DY* ; 

BEGIN i*BODV* 

PILEVCi_EV£L]* = pftop + i; VLC i= o; 
FILEVtLEVEL] 1= FILTOP *■ 1J 
FSTIX 1= CEXTABIX + 1 ! 






# 






• 



I IF NO = *♦£■ TnEN f»LAd£u + 

BEGIN REPEAT INSYMBOL ; 

# IF (NO = 21a{CL = 1) THEN 

BEGIN IF IVAL > TWQT017 THEN 

BEGIN ERROR (103) ? SOTO 2 END 5 

# FOR IT i= FSTIX TO CEXTABIX DO 

IF EXTABCITJ.EXtfAL = IVAL THEN 
BEGIN ERROR (77) ; GOTO 2 END ? 

# IF CEXTABIX = MAXEXLA8S THEN ERR0RC73) ELSE 

BEGIN CEXTABIX 1= CEXTABIX + i J 

IF JMPIX > JMPMAX THEN ERRORC91) ELSE 

# BEGIN WITH EXTABCCEXTABIX] DO 

BEGIN EXVAL t= IVAL J JMPTABIX 1* JMPIX END 
JMPTA8C JMPIX] * = LEVEL J JMPIX 1= JMPIX + i 

# END 

END I 






# 



m 



INSYMBOL 



END r*IF (N0 = 2) a(CL=1)+ ELSE 
BEGIN ERR0R(6i) ? GOTO 3 END 
UNTIL KQ * 15 i*,* 5 



• 






• 



• 



FINDSEM1COLON? 
END ; 

IF NO = kl THEN «• 
BEGIN INSYHBOL ? 

WHILE NO = 1 
BEGIN REPEAT 3 
N£W(P,KONST 
WITH P* DO 
BEGIN NAME 
EHDl NEXT 

insymbol; 

IF (NO * 8) 
IF NO = 36 
BEGIN P*.CO 

P+. VALUE 
END ELSE 
BEGIN INCON 

P+.CONTY 

end; 

WHILE NO 
BEGIN IN 
IF NO 
BEGIN 
END? 
UNTIL NO t 
FINDSEMICOL 
END i» WHILE NO 
END .♦CONST*? 
IF NO =37 THEN *TYP 
BEGIN INSYMBOL; 
WHILE NO = 1 DO 
BEGIN SRCHREC(NEXT)? 
TYPID «= AVAL? I 
IF (NO t 3) v (CL 
ERR *= FALSE? TY 
IF ""ERR THEN 
IF Pt.NAME t BLAN 
BEGIN P+.NAME 1= 
NEXT 1= p; 

end; 

findsemicolon4 
end; 

END fTYPE* ; 

IF N0=<*3 THEN .♦VAR* 

VAROECL ELSE VLC 
IF PTX > THEN 
BEGIN ERROR (12); WRI 
FOR PTX 1= PTX-1 

WRITE (E E,ECLA 
IF "*EOLFLAG THEN 
END? 

IF LEVEL = THEN 
BEGIN IF ^PARMLIST.E 
FOR I 1= TO FIL 
WITH FILPTSII1.PT 
BEGIN 

IF VTYPEt.FELT 
BEGIN IT 1= 0? 



CONST ♦ 





RCHREC(NEXT) J IF CTPTR t NIL THEN ERROR(8)| 

>; 

i= aval; nxtel i= next; klass i* konst; 
*= p? 

v (CL * 6) THEN ERRORU) ELSE INSYM30LI 
THEN .♦ NIL * 
NTYPE l- NILPTR? 

s »= nilval; INSYMBOL ; 

ST(I»N, NEXT*. NXTEL); 

pe «= n; p*. values t= I? 

= 15 DO 

symbol; 

t 1 THEN 

ERROR (ID? SKIPC15) END; 

15 

on; 

= l * ; 

E + 



if ctptr t nil then err0r<8) ? 
nsymbol; 

* 6) then error(^) else insymbol? 
peo£cl(tl,p) ? 

k then err0ro6) else 
typio; p*. nxtel t= next; 



# 



• 
• 



• 



*= lc; 

te(eol) ; prterr; 

downto do 

ss-io i,ptlist£ptxkhname,eol) ; 

writ£((= =) jchcnt+3) ? 



RRFLAG THEN 
TOP DO 
R+ 00 

YPE = CHARPTR THEN 

LG t= LC + ALFALENG? 



# 



FOR J 1= 1 TO ALFALENG 00 PUT (PASCLGO) J ,*CHAR SUFFER* 

# END ELSE IT «= 1? i» C/3 3IT * 

PUl (PASCLGO) ? (♦ P-PTR * 

J 1= FILPTSm.SPEC; 

• IF ""(J IN tINP,£XT1> THEN J 1= J * 8 ? fEOF BIT* 

J t= (2*J * IT)*128 + 30B J (♦APPEND C/8 BIT AND MASK* 
UNPACK(NAM£,LCH,1> ? IT1 1= 7 ? 

• WHILE LCHMT1J = = = DO IT1 I- IT1 - i J 

IT1 1= <ALFALENG - IT1)*6 ? 
APPEND<J,%8,VTYPE*.F£LTYP£t.SIZE>; 

# PASCLGOt l= JJ PUT(PASCLGO) ; ,»EOF ,SPEC ,C/B ,LRL* 

J 1= ORD(NAME)? APPENO(J,-IT1,0); APP£ND< J ,ITi ,0 > ? 
PASCLGOt «- J? PUT(PASCLGO) J & LFN * 

• PASCLGOt 1= vador; 

FOR J «= 1 TO 3 00 PUT(PASCLGO) ? r»FIRST,IN, OUT* 

PASCLGOt »= VADOR ♦ VTYPEt.SIZE; PUTCPASCLGO) ; ,• LIMIT * 

# VAODR 1= LC; LC t= LC + 7? 
END? 

PARMLIST.LPJMPTA3 1= LC 5 

# IF VLC t LC THEN FOR J IM TO JMPMAX DO PUHPASCLGO) 

ELSE VLC 1= LC + (JMPMAX + 1) ? 
LC t- LC + (JMPMAX + i) J 

• ic t= lc? parmlist.lqadpt i- vlc| *lgadpt* 
end; 

OP 4= FALSE? 

# IF NO IN [<+V,i*53 THEN ^FUNCTION OR PROCEDURE* 
BEGIN IF SJRRPTR t NIL THEN 

IF SURRPTRt.PROCADDR = THEN 

# BEGIN IF JMPIX > JMPMAX THEN ERR0R(91) ELSE 

BEGIN SURRPTRt.PROCAODR 1= PARML IST.LPJMPTAB ♦ JMPIX ? 
JMPIX »= JMPIX + i ? 

• END 

end; 

REPEAT 

• LL != NO? ERR t- FALSE? 

oldlev 1= level; 

if level < maxlevel then level *~ level + 1 else £rr0r(76) ; 

• insymbol; 

IF NO t 1 THEN 

BEGIN ERROR(ii)? LEVEL t= OLOLEV; GOTO i END; 

• LCI »= LC? SRCHREC(NEXT) ; 

IF CTPTR t NIL THEN 

IF CTPTRt.KLASS t PROG THEN 

# BEGIN £RR0R(8) J CTPTR 1= NIL END? 

IF CTPTR = NIL THEN r* UNDECLARED PROCEDURE * 
BEGIN NEW(PROCPTR,PROC) J 

• WITH PROCPTRt DO 

BEGIN NAME 1= AVAL? NXTEL «= NEXT? KLASS 1= PROC* 
PROCTYPE 1= procptr; PROCKINO I- actual; 

# PROCLEVEL i= LEVEL - i; 

end; 

displayct0p1.fname 1= procptr? 

• NEXT 1= NIL ? 

INSYM80L? 

IF LL = kk THEN <• FUNCTION * 

• BEGIN IF NO t 9 THEN ERR0R(29) ELSE 

BEGIN LC I* 3 ? INSYMBOL ; FORMPARM END ? 
IF ERR THEN PROCPTRt. PROCTYPE 1 = NIL; 

• IF NO = 10 THEN 

BEGIN INSYM30L? 

IF NO * 19 THEN ERROR(iQ) ELSE INSYMBOL; 

# IF NO t 1 THEN 

BEGIN ERROR(ll) 5 SKIPC49) J 
PROCPTRt, PROCTYPE 1= NIL? 

# END ELSE 

BEGIN SEARCH? 



• 
• 

• 



# 

• 









IF CTPTR t NIL THEN 

• BEGIN IF CTPTR*. KLASS t TYPES THEN 

BcGIN tRR0R(93)J CTPFK «= NlL £N0 ELSE 

if ctptr*. form > power then 

# begin error(93) ? ctptr « = nil end ? 

end else error(12) ? 

procptr*. proctype 1= ctptr ? 

• insymbol; 

end; 

END *NO = 10*; 

• END i» FUNCTION * ELSE - PROCEDURE * 

BEGIN LC *= 3 J 

IF NO s 9 THEN <► PARMLIST * 

• BEGIN INSYMBOL? FORMPARM? 

IF ERR THEN PROCPTR*. PROCTYPE t= NIL? 
IF NO = 1C THEN INSYMBOL? 

• END *»NO - 9*1 

END (♦PROCEDURE*! 
IF NO t 16 THEN 

• BEGIN PROCPTR*. PROCTYPE 1= NIL? 

ERROR(58)5 SKIPC16)? 
END ELSE INSYMBOL? 

• PROCPTR*. FORMALS «= NEXT? 

IF <NO=l> a (A>/AL ==FORWARD=) THEN 
BEGIN NEXT *= PROCPTR? 

• IF JMPIX > JMPMAX THEN ERR0RC91) ELSE 

BEGIN PROCPTR*. PROCADOR 1= 

PARMLIST. LPJMPTAB * JMPIX ? 

• JMPIX *= JMPIX + 1 ? 

END % 

PROCPTR*. SE3SIZE *= -LC? 

• r» SEGSIZE < SIGNIFIES FORWARD-DECLARATION * 

INSYMBOL? 

END ELSE 

• BEGIN TOP i= LEWEL + 1? 

WITH OISPLAYETOP] DO 

BEGIN FNAME 1= NEXT? OCCUR 1 = BLOCK END? 

• PROCPTR*. PROC ADDR 1= 0? 

NEW(LFIRSTENTRY,DUMMYCLASS) ? 
BODY<PROCPTR,LFIRSTENTRY) ? 

• END? 

END t> NEW PROC * ELSE r* PROC ID ALREADY DECLARED * 
BEGIN 

• IF CTPTR*. SEGSIZE > THEN i» PREV. DECL NOT FORWARD * 

ERROR (16) ? 
INSYMBOL? 

• IF NO = 9 THEN r IGNORE PARM-LIST * 

BEGIN ERROR (23) | 

REPEAT 3KIPC10) ? 

• IF NO IN C16,41,<*3,M»,i»51 THEN INSYMBOL? 

UNTIL ^(NO IN £16,<*i,<*3,^,<*5J)? 

IF NO t 10 THEN ERR0R(9) ELSE INSYMBOL? 

• END? 

IF NO = 15 THEN SKIPU6) ? 

IF NO t 16 THEN ERRORC58) ELSE INSYMBOL? 

• IF (NO=l) a (AtfAL==FORWARD=J THEN «»AGAIN FORWARD* 

INSYMBOL ELSE 
BEGIN 

• PROCPTR *= CTPTR? 

KITH PROCPTR* DO 

BEGIN LC t= -SEGSIZE? NEXT 1 = FORMALS END? 

• TOP i= LEVEL + 1? 

WITH DISPLAY! TOP] DO 

BEGIN FNAME t= NEXT? OCCUR 1= BLOCK ENO? 
W NEW(LFIRSTENTRY f OUMMYCLASS)£ 

BODY (PROCPTR, LFfRSTENTRY) ? 






• 



• 

• 






END *NOT FORWARD*; 
END i» OLO PROCEDURE * ? 
lC »= LCI? 
LEVEL 1= OLDLEV? 
FINDSEMICOLON? 
UNTIL ^(NO IN 1^,45 J J ? 
END i* FUNCTION OR PROCEOURE * ? 
DISPLAYtTOPJ.FNAME *= NEXT? 
IF N0*21 THEN 

BEGIN ERR0RC24)? SKIP(<*9>? 
WHILE NO IN [16,22] DO 
6EGIN INSYM80L? 

SKIP(<+9) ? 
ENO ; 

IF NO IN £37,4*0, hl,i+3>,kk,k5) THEN GOTO 1? 
END ELSE 

IF SJRRPTR = NIL THEN PARMLIST.ENTRYPT 1= IC ELSE 
WITH SURRPTR* 00 
BEGIN IF PROCAOOR t S3 THEN 

BEGIN I 1= IC ? APPEND<I,30,EQJMP) ? 

JMPTABIPROCAODR - PARMLIST.LPJMPTA8 3 «= I 
END ; 

PROCAODR t= IC 
END ; 

N Is NEXT ; ERR 1= FALSE ? 
WHILE N t NIL 00 

IF Nt.KLASS t PROC THEN N != NIL ELSE 

BEGIN IF N+.SEGSIZE < THEN ^FORWARD, NO REAL DECLARATION* 
BEGIN IF ^ERR THEN 

BEGIN ERR0RC12) ; WRITE(EOL) J PRTERR ENO ? 
WRITE(= PROCEDURES, = =,N+.NAM£, EOL) ? 
END ? 

N Is Nt.NXTEL ? 
END i»IF, WHILE* % 

if err then if "eolflas then write ({ = £)ichcnt*8) ? 
if •'parhlist.errflag thefl outpmd(surrptr) ; 
enterbody? 
c0mpstat j 

leavebody ; 

IF SURRPTR t NIL THEN SURRPTRt .SEGSIZE := LC J 
NEW (P, DUMMY CLASS} ? 
IF P > MAXCTP THEN HAXCTP 1= PJ 
RESET (FIRSTENTRY) ? 

TOP i= LEVEL? NEXT 1= DISPLAY[TOP J.FNAME $ 
END f BODY * ? 

f MAIN PROGRAM * 

BEGIN 

r» INITIALIZE CONTEXT-TABLE * 

NEWiNILPTR, TYPES, POINTER) ? fTYPE OF NIL* 

WITH NILPTR* DO 

BEGIN NAME i= BLANK1 NXTEL Is NIL? KLASS 1= TYPES? 

SIZE 1= 0? FORM 1= POINTER? DOMAIN Is NIL? ELTYPE I- NIL| 
END? 

NEXT 1= NIL ? 

FOR IT 1= i TO 12 DO <*W£OR, GET, PUT, RESET, REWRITE, PACK* 

BEGIN NEW(PT,PR0O? ^UNPACK, INSERT, APPEND, READ, WRITE, ALLOC* 

WITH PTt DO 

BEGIN NAME 1= INITNAMC IT-2 ] ? NXTEL *= NEXT? KLASS 1= PROC! 
PROCTYPE is PT? FORMALS is NIL? 

PROCAODR 1= ? PROGLEVEL 1= ? SESSIZE is IT ? 
PROCKINO Is ACTUAL? 

END? NEXT Is PTj 



# 



# 



» 

m 



- end; 

w for it := 1 to 

BEGIN f€w(PT,P 
WITH PT* DO 

# BEGIN NAME 

PROCTYPE 
PROCAOOR 

# PROCKIND 
END? NEXT 

end; 

• new(ctptr,type 
with ctptr* 00 
begin name 1= 

# SIZE i= 513 

END? FILPTSI1 
NEXT 1 = CTPTR 

# FOR IT » = 22 T 

BEGIN NEW(PT,tf 
WITH PT* DO 

# BEGIN NAME 

VTYPE 1= 
IF IT = 

# VAODR 
VLEVEL J 

end; NEXT 

• end; 
newcalfaptr,ty 
with alfaptr* 

• begin name * = 

SIZE 4= 1? 
BITSIZE is 

• end; 
n£w*realptr,ty 
with realptr* 

# BEGIN NAME t= 

SIZE *= i; 
BITSIZE t= 

# end; 

new(charptr,ty 
with charptr* 

# BEGIN NAME * = 

SIZE 1= i; 

end; 

# NEWtPT, KONST) ? 
WITH PT* DO 
BEGIN NAME l- 

# CONTYPE 1= 
VALUES 1= 6 

end; charptr* 

• new(boolptr,ty 
with boolptr* 
begin name »= 

• SIZE 1= i; 

end; 
new(pt,konst) ; 

• with pt* do 

BEGIN NAME l~ 
KLASS *= KO 

# VALUES 1= 
END ; 

NEXT i= PT? CT 

# FOR IT $= TO 
BEGIN N£W(PT,K 

WITH PT* DO 
W BEGIN NAME 

KLASS 1 = 



9 DO 

roc) ; 



I* 



t= INITNA 
»= NILPT 

i= o ; p 

!= ACTUA 



000, INT, CHfc, EOF, A8S, SQR, TRUNC, * 

.♦preo, succ + 

mcit+1013 nxtel * = next? klass * = proc; 
r; formals *= nil; 
roclevel * = j segsize t- it j 

l; 






S, FILES); .»TEXT* 

=TEXT=? NXTEL 1= NEXT; KLASS *= TYPES; 

; form i= files; 
l.PTR t= ctptr; 

23 DO 

ARS); c INPUT, OUTPUT* 



Man; nxtel *= next; klass »= vars; 
vkino is actual; 



!= INITNA 

ctptr; 

22 THEN 
1= INPT ELSE VADDR 1= OUTPT ? 

= a; 

«= PT| 






PES, SYMBOLIC) J 

DO 

INITNAMC2 

FORM *= 
WOROLENGT 



.♦ALFA* 



kit NXTEL « = NEXT? KLASS I* TYPES? 

symbolic; fconst » = nil; pwset t- nil£ 
h; 



PES, SYMBOLIC)! <»R£AL* 

DO 

INITNAMI2 

FORM := 
WORDLENGT 



51} nxtel *= alfaptr? klass 1= types; 
symbolic? fconst »= nil? pwset «= nils 

h; 



PES, SYMBOLIC)! *»CHAR+ 
DO 

INITNAMI2 
FORM 1= 



61? NXTEL *= REALPTRJ KLASS * = TYPES? 
SYMBOLIC? BITSIZE t= 6? 



<♦=!=+ 



BLANK? NXTEL %- NIL? KLASS 1 = KONST? 
CHARPTR? 
3? SUCC 
.FCONST * 
PES,SYMBO 
DO 

INITNAMC2 
FORM 1= 



1= NIL? 
- PT! 
ILIO! .♦BOCLEAN* 



73; NXTEL *= CHARPTR; KLASS t= TYPES? 
SYMBOLIC? BITSIZE 1= i; 



(*EOL + 
INITNAMI2 

nst; CONT 

; succ i~ 

PTR t= NI 

i DO 
ONST)! 

1= INITNA 
KONST? 



oi; NXTEL »= boolptr; 

YPE i= CHARPTR; 
NIL 

l; 

.♦false, true+ 

MtIT*28]; NXTEL » = NEXT; 
CONTYPE 1= aOOLPTR? 



• 



• 
• 






t 



ctptr; 
t= pt; 



.♦INTEGER* 



NXTEL t= NEXT? KLASS »= TYPES? 



MAX 1= 37777777777777773; 



values *= it; succ t = 
end; ctptr »= pt; next 
end; 

BOOLPTRt.FCONST t = NEXT J 
NEWdNTPTR, TYPES, NUMERIC) ; 
WITH IMTPTRt DO 
BEGIN NAME 1= INITNAMC301? 

SIZE »= 1 5 FORM *= NUMERIC ; 

min » = 7777<+«aGoaocaooaoaoo8; 

BITS i= worolength; 
end; predefp »- intptr; 
for it 1= 1 to 2 do 
begin new(pt, types, power) ; ^powerset char, powerset boolean* 

WITH PTt DO 

BEGIN NAME 1= BLANK? NXTEL *= NIL? 

SIZE 1= 1? FORM 1= POWER? 

IF IT = i THEN ^POWERSET BOOLEAN* 

BEGIN ELSET 1= 6QOLPTR5 

END ELSE «*POWERSET CHAR* 

BEGIN ELSET 1= CHARPTRJ 

PMBITS »= worolength; 
end; 



klass 1= types; 



BOOLPTRt.PWSET 1= PT? PW8ITS «= 3! 



CHARPTRt.PWSET *= PT: 



«»TYPE OF ALL UNDECLARED IDES* 



; NXTEL *= 
VAOOR t- 



end; 

END? 

NEW(UNOECPTR,VARS) 5 
WITH UNDECPTR* DO 
8EGIN NAME *= BLANK 

VKINO i= ACTUAL 
END ; 

NEW (PNUMPTR, TYPES, POWER) 
WITH PNUMPTRt DO 
BEGIN NAME »= BLANK! NXTEL 1= NIL; 

SIZE 1= lj FORM i= POWER; ELSET 

end; 

n£w<lamptr, types, po«er) ? *type of £ 

WITH LAMPTRt 00 

BEGIN NAME ! = BLANK! NXTEL t= NIL; 
SIZE i= 1? FORM t= POWER; ELSET 

end; 

new(ctptr,vars) ? «»typ£ of param of 

WITH CTPTRt DO 

BEGIN NAME »= BLANK ; NXTEL 1 = NIL J 

VTYPE 1 = REALPTRI VKINO 1= ACTUAL; 

VAOOR 1= 3! VLEVEL i= 0? 
END ; 

NEXT 1= INTPTR ; 
NEW(PT,KONST) J *ALFALENG* 
WITH PTt DO 

BEGIN NAME 1= INITNAMC21] J NXTEL * = 
«= INTPTR ; VALUES 1= 10 5 
NIL 



NIL 5 KLASS 1= 
J VLEVEL 1= 



VARS 5 VTYPE 1= iNIL 



# 



r»TYPE OF POWERSET 0..58* 



KLASS t= types; 



Is INTPTR? PW8ITS 1= WOROLENGTH? 



3* 
KLASS *= 

i*. nil; 



types; 

PWBITS 



l= 



EXTERNAL PROCEDURES* 



KLASS 1= VARS 



fSIN, COS, EXP, LM» SORT, ARCTAN* 



CONTYPE 
SUCC *= 
END ; 

NEXT *= PT ; 
FOR IT 1= 32 TO 37 00 
BEGIN NEW(PT,PROC) ? 
WITH PTt DO 

BEGIN NAME J= INITNAMtlTI J NXTEL 1= NEXT ; 
KLASS *= PROC ; PROCTYPE 1= REALPTR ? 
PROCKINO 1 = ACTUAL ; PROCLEVEL 1= ; 
FORMALS 1 = CTPTR? PROCAODR i= IT ♦ 53? 
IF IT < 33 THEN SESSIZE t= C ELSE SE3SIZE 
END ? 

NEXT *= PT 
END ; 

EXTPTR «= NEXT ; 
FILPTSt 1 1 . PTRt . FELTYT>£^ l5_CHARPT_R_? 



NEXT J KLASS » = KONST J 



1 = IT - 33 



m 


DIGITS * 




FOk IT » 




£RRINX I 


m 


PARMLIST 




OP 1= TR 




PMCTR «= 


• 


ASSCHECK 




STOFLCHE 




KK 1= AL 


• 


ptx i= a 




FOR IT t 




UNDLABCU 


# 


IG t= PA 




MAXGTP I 




PARMLIST 


• 


WITH DIS 




BEGIN FN 




NO i= q; 


• 


CH 1= IN 




INSYM80L 




REPEAT 


• 


DISPL 




TOP J 




N£W(P 



= [E&E,=i = ,E2 = ,E3 = ,E<+=,~5=, = 6 = ,i7 = , = 8 = ,=9=]5 
= u To 3 UO PARMLlSr.ERRNRSUTJ t= C J J 
= 0; EOLFLAG t= FALSE? CHCNT *= i; 
.ERRFLAG i= FALSE ? 
UE? PRCOOE 1= false; 
u ; lastlink t= o; <*for pmdfile* 

1= TRUE ; INXCHECK 1= TRUE ; QIVCHECK 1= TRUE 
CK 1 = TRUE I ROUNDING l~ TRUE J 



f* 



FALEN3} FILTOP 
5 CHNIX 1= 1? 



1= -1? JMPIX 1= OJ CEXTA8IX 1= 5 

B60PL * = 3? 

00 UNOLA3CIT3.SUCC Is IT ♦ i J 
5 



= 1 TO UNOMAX-1 
N0MAX3.SUCC «= 
RMLIST.ICQ + 1 5 
= LAHPTR5 
.EXTFLAGS *= £ J 
PLAY[03 00 
AME 1= EXTPTR 

LC t= ic; 
PUT+J WRITE<= = ,LC t 6 OCT,= =,CH) J 



OCCUR 1= SLOCK END 



AYCi].FNAME 1= NIL? DISPLAY! 13. OCCUR 1= BL0CK5 
= 15 LEVEL 1= 0; NEXT 1= NIL5 
T,DUMMYCLASS) 5 LC 1= IC 5 PFTOP 1 = -1J 



♦4- 80DY(NIL,PT)5 f* COMPILE USER PROGRAM 
♦ * 









IF (LEVEL = 0)MNO * 17) THEN ERR0RC5M 5 
UNTIL NO = 17 r» . * 5 
IF ^EOLFLAG THEN 

REPEAT GETCINPUT); WRITEMNPUT+) UNTIL INPUT* = EOL 5 
IF ERRINX > THEN PRTERRJ 
IF PRCOOE THEN PRJMPTA8 5 

PMDFILE+.PKIND X- PROCORJ PROFILE*. COUNT t= LASTLINK5 

MAIN PROGRAM ENTRY* 





PUT(PMOFILE) 5 


*LINK TO 


m 


WRIT£(EOL> 5 






PARMLIST. LIMCOOE 1= IC 




END . 






# 




IOENT 


SINCOS 






ENTRY 


SIN 






ENTRY 


COS 


• 


81 82 


3SS 


1 




SIN 


SB7 









EQ 


SINCOS 


# 


COS 


S37 


1 




SINCOS 


SA7 


86+1 






MX1 


h2 


# 




SX6 


Bl 






3X6 


-Xi*X6 






LX6 


18 


• 




i> A U 


82 






bx« 


-xi*xe 






3X6 


X6+XG 


• 




SA6 


8182 


• 




SA3 


86+3 






SA2 


TWOPI 






OR 


X3,ERR2 


• 




10 


X3,£RR3 






FX7 


X3*X2 



STORE RETURN AODRESS 



GET ARGUMENT 



.N = AR3*2/PI 



• 



PASCAL 
PASCAL 
PASCAL 
PASCAL 
PASCAL 
PASCAL 
PASCAL 
PASCAL 
PASCAL 
PASCAL 
PASCAL 
PASCAL 
PASCAL 
PASCAL 
PASCAL 
PASCAL 
PASCAL 



# 






NRR 



• 

# 



SINE 



• 
t 



MXU 









SBi 


1 






P*2 


xo 


.GET MASK - 20a«0UU000000Q000000B 




FX<+ 


X2+X7 


• 




0X6 


X2+X7 


• 




RXO 


X<*+X6 


.ROUNDED N IN X2 




NXi 


B2,XB 


.NORMALIZE N FOR RANGE REDUCTION 




BX6 


X2-XC 


.N IN INTEGER FORMAT 




ixa 


X2+X6 


.MAKE INTEGER POSITIVE 




SA2 


A2+81 


.PI/2-U 




£Q 


B2,BS,ERRi 


.JUMP IF ARG TOO LARGE 


PASCAL 


FX7 


Xi*X2 


.N*(PI/2-U)J = Hi 




SA4 


A2+81 


.PI/2-L 




ZR 


X6,NRR 


,N=0, NO RANGE REOUCTION NECESSAR 




FXb 


X3-X7 


. (ARG-HDU 




0X5 


X2*X1 


.N*(PI/2-U)L - H2 




DX2 


X3-K7 


. (ARG-HDL 




NXfe 


BQ,X6 


* 




FX7 


X4»Xi 


.NMPI/2-DU 




FX2 


X2-X5 


. 




SXi 


B7 


.K TO Xi 




FX2 


X2-X7 


.LOW ORDER TERMS 




IXS 


X3+X1 


• N + K + 2**58,,, .GT. 




MX5 


58 


.X5=-3 




BX7 


-X5*XC 


. K = <N+K)MOD<t 




RX6 


X6+X2 


.FINAL REDUCED ARG* X 




SB7 


X7 


.K BACK TO 37 


PASCAL 


NX3 


B0,X6 


NORMALIZED 




SX6 


B7 


•K TO X6 


PASCAL 


FXfi 


X3*X3 


.Z=X*X 




LX6 


59 


.K = 0,2 USE SINE EVALUATION 




PL 


X6 t SINE 


. 




SAI 


a '♦♦at 


.C5 




FX7 


XQ»*Q 


.Z**2 




SA2 


Ai+81 


.C6 




FX<* 


xa*xi 


.C5*Z 




FX5 


X2*X7 


.C6*Z**2 




SA3 


A2+81 


.C<t 




FX6 


X<t+X3 


.C5*Z+C4 




SA*t 


A3+31 


.C3 




FX1 


x*+*xo 


.C3*Z 




FX6 


X6+X5 


.C6*Z*Z+C5*Z + C<t = ( i ) 




FX2 


X6*X7 


. ( 1 )*Z**2 




SA3 


Aif+3i 


.C2 




FX6 


X1+X3 


.C3*Z + C2 




SAit 


A3+81 


.CI 




FX6 


X2+X6 


. ( i )Z**2+C3*Z+C2 = ( 2 ) 




FXy 


XQ*Kk 


.C1»Z 




SA5 


AM-81 


.CO 




FX7 


X6*M7 


.( 2 )*Z*»2 




FX6 


X7+X0 


.( 2 )Z**2 + Ci*Z 




RXG 


X6+X5 


.C3 + REST OF SERIES 




JP 


CONT 


.DONE WITH COSINE SERIES 




SAI 


S5 


• S5 




FX6 


X1*X0 


.S5*Z 




SA2 


Ai+81 


.S4 




FX7 


xo*xe 


.Z**2 




FX5 


X2+X6 


.S5*Z+S% 




SAI 


A2+81 


.S3 




SA2 


Ai+81 


.S2 




FX6 


X5*X7 


. {S5*Z+S<»)*Z**2 




FXk 


Xi*XG 


.S3*Z 




FXS 


X6+X2 


. (S5*Z+S^)Z**2 + S2 




SA2 


A2+81 


.SI 




FX5 


X5+X% 


. (S5*Z+S<»)Z**2+S2+S3*Z - ( 3) 





• 
• 



• 



# 







FX7 


X5*X7 


# 




FXu 


X2*X0 






SAl 


A 2 +t)l 


1 




FX<+ 


X0+X7 


m 




RX5 


Xtt+Xl 






RXu 


X3*K5 




CO NT 


SX3 


Bl-87 


m 




AXS 


2 






BX6 


XC-X3 


# 


EXIT 


SAl 


B1B2 






S32 


XI 






AX1 


18 


• 




SB! 


XI 






SA6 


B6+2 


• 




SAl 


86+1 






SB7 


XI 






JP 


B7 


• 


ERR2 


SXj 


MESS2 






EQ 


ERR 




ERR3 


SXO 


MESG3 


: • 




EQ 


ERR 




ERRi 


SXO 


MESS1 




ERR 


SAl 


36+1 


• 




EQ 


1778 




MESG1 


OIS 


,=* ARS 




MESS2 


OIS 


,=+ INF 


• 


MESG3 


OIS 


,=* INO 




TWOPI 


DATA 


1717505 




DC SGI 


DATA 


1720 622 


• 


0CSC2 


OATA 


16M604 




C5 


DATA 


6135330 




C6 


OATA 


1663433 


• 


Ck 


DATA 


17086^0 




cs 


DATA 


6871223 




C2 


DATA 


1713525 


• 


CI 


DATA 


6Q618C0 




CO 


OATA 


1717777 




S5 


DATA 


6111127 


• 


S4 


DATA 


1675561 




S3 


DATA 


6074137 




S2 


DATA 


1711421 


• 


Si 


DATA 


6062252 




SO 


DATA 

END 


1717777 


m 




I DENT 


EXP 






ENTRY 


EXP 




SAVEB1 


8SS 


1 


m 


EXP 


SA7 


B6+1 






SX6 


Bl 






SA6 


SAVE31 


m 












SA3 


B6+3 


m 




MX& 





i 




SAl 


XMAX 






SB! 


1 


m 




OR 


X3,ERR2 






ID 


X3,ERR3 






SA5 


Al+31 


m 




FX7 


X1-X3 






SA2 


A5+B1 






FX1 


X3-X5 


^w^ 




PXk 


XQ 






BX7 


X7-X1 



( 3 )*Z**2 

S1*Z 

SO 



FINAL SINE TERM 

1-K 

SIGN(l-K) 



STORE RESULT 
RETURN AOORESS 



RETURN ADDRESS 
RETURN TO MONITOR 
TOO LARGE, ACCURACY LCSTE 

INITE ARGUMENTS 

EF ARGUMENTS 

7^6333344710^8 

0773250^205503 

3230461461213B 

10145248166173 

4143344163607B 

0637375136*»573 

7223723<*231253 

2525252523467B 

80308003300048 

77777777777773 

06631124763513 

65342016175738 

7lif0534357734B 

0^210^10041423 

52525252553423 

77777777777708 



SAVE RETURN ADDRESS 



GET ARGUMENT X 

GET XMAX 

TEST FOR BAD ARG 

GET XMIN 

XMAX-X 

GET L0S2<E) 

X-XMIN 

SIGN OF (XMAX-X) »(X-XMIN) 



PASCAL 



PASCAL 
PASCAL 
PASCAL 
PASCAL 
PASCAL 
PASCAL 
PASCAL 
PASCAL 
PASCAL 
PASCAL 
PASCAL 
PASCAL 
PASCAL 
PASCAL 
PASCAL 
PASCAL 
PASCAL 






PASCAL 
PASCAL 
PASCAL 
PASCAL 
PASCAL 
PASCAL 
PASCAL 



EXIT 



EXTR 



ERR2 

ERR3 
£R 



FX6 
NG 
Fa7 
0X6 

RX7 
NX6 

SA<+ 
SAS? 

FXfi 
FX1 
FX6 
NX2 
0X3 
FXi 
FX3 

Nxa 

S67 
RX7 
SA1 
SA2 
FX6 
FX5 
RX3 
SAI 
FX6 
RX3 
SA2 
FX5 
RX2 
FXH 
FXI 
RX6 
RX1 
NXi 
RX7 
RX% 
RX5 
SA1 
FX2 
0X3 
NX2 
FXk 
DX7 
RX7 
RX6 
UX7 
SB7 
PX6 

SA1 
S81 

SA6 
SAi 
SB7 
JP 

SX6 
NG 

SXy 

£a 

SXy 
EQ 

sxo 

SAi 



X2*X3 
X7,£XTR 
XH+X6 
X<++X6 

X7+X6 
37, X7 

A2+ei 

A-4+B1 

X6*X*t 

X6*X5 

X3-XD 

By,X6 

X3-XG 

X3-X1 

X2+X1 

Ba,X3 

X7 

X8*XC 

A5+81 

Al+Bi 

X1*X7 

X7*X7 

X6+X2 

A2+B1 

Xi*X7 

X3+X5 

Al+Bi 

X0»K3 

X6+X2 

X7*X2 

X3+X3 

X1-X5 

X6+M 

30, XI 

X0/M1 

X5-X4 

X7*X*» 

A 2+81 

Xi+XO 

Xi+XQ 

80, X2 

X2+X5 

X2+X5 

X3+M7 

X**+X7 

31, X6 

B7+S1 

B7,X6 

SAVEBi 
XI 

86+2 
B6+1 
XI 

B7 

80 
X3,£XIT 

MESG1 

ER 

MESS2 

ER 

HESG3 

B6+i 



X*L0G2(£> 
TEST FOR ARG 



OUT OF (XMIN,XMAXi RANGE 



PASCAL 
.N IS NOW AN INTEGER WITH A 2080 EXPON 
.NORMALIZE N FOR RANGE REOUCTION PASCAL 

.L0G(2) UPPER 
.LOG (2) LOWER 
.N*L0G<2> UPPER 
,N*L0G(2) LOWER 



.FINAL VALUE OF X 
.PICK UP N 

.Ci=^2Q.O 

.C0=15120.Q 

.Ci*Z 

.Z**2 

.Ci*Z + CO 

.C3-28.8 

.C3*Z 

.Ci*Z + CO + Z*Z = B 

.C4=2520.0 

.X*B 

*Ck + C3*Z 

.Z*T 

.2*8 

.2*8 - X*8 

.Z*T + 2*8 - X*8 = OENOM 

.TERMi = X/DENOM 
.X*B - Z*T = TERM2 
•Q = TERM1*TERM2 
.LOAD 1.0 



STORE RESULT 
RETURN ADORESS 



RETURN MITH ZERO IF X < XMIN 



PASCAL 



# 



• 
• 



RETURN ADDRESS 



PASCAL 
PASCAL 
PASCAL 
PASCAL 
PASCAL 
PASCAL 
PASCAL 
PASCAL 
PASCAL 
PASCAL 
PASCAL 
PASCAL 
PASCAL 
PASCAL 
PASCAL 
PASCAL 
PASCAL 
PASCAL 
PASCAL 
PASCAL 









MESS2 

MESG3 

XMAX 

XHIN 

L0G2E 

L0G2U 

L0G2L 

Ci 

CO 

C3 

C^ 

ONE 



B182 
LN 



• 






• 



EQ 

UIo 

OIS 

DIS 

DATA 

DATA 

OATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

END 

IDENT 

ENTRY 

8SS 

SA7 

MX! 

SX6 

BX6 

LX6 

sxo 

8XB 
BX6 
SA6 

SA1 

SA2 
UX7 
ZR 

OR 

ID 

NG 

SS7 

SB! 

1X6 

NG 

SB7 

PX7 

SA5 

FXO 

NX2 

DXO 

RXy 

RX2 

RXu 

FX7 

SAi 

SA2 

SA3 

FX6 

FX5 

FXi 

FX6 

FX^ 

SA^ 

FXi 
FX3 
FXi 

NX* 
FX6 
^_A2 



1778 

»=♦ 
»=* 
,i* 

7<+l. 
-675 

i72a 

1717 

1653 
<*20. 
1512 
23.0 
2520 
1.0 



AR* 

INF 

I NO 

67 

.82 

561 

5^2 

071 



0.0 

• Q 



RETURN TO MONITOR 

TOO LARGE, FLOATING OVERFLOW: 
INITE ARGUMENTS 
EF ARGUMENTS 



25073122560308 
7102775750G00B 
7363257117073B 



PASCAL 
PASCAL 



LN 

LN 

1 

36+1 

kZ 

Bi 

-Xi*X6 

18 

B2 

-xi*xo 

X6+X0 
8132 

B6+3 

SQ2 

B2,X1 

X1,£RR1 

X1,£RR3 

Xl,£RRi» 

X1,ERR2 

-k7 

1 

X7-X2 

X6,GL 

87-81 

87, X7 

A2+31 

X7-M5 

80, Xfi 

X7-X5 

X2+X0 

X7+X5 

X0/M2 

X0*X0 

A5+81 

Al+81 

A2+81 

X7*X2 

X7*X7 

X1+X6 

X5*M3 

X5*X7 

A3+81 

X1+X6 

X***X2 

X1+X3 

30, XI 

xa/x** 

A2+B1 



SAVE RETURN AOORESS 



ARGUMENT 



.TRY K*- k7 



NEED K = -**8 
FORM W = 2.K*C 
LOAD 1.0 
(W-1.0) 



.Z=T*T 

.DO 

.01 

.02 

.2*01 

.Z»Z 

.DO + Z*Di 

.D2*Z*Z 

.Z**3 

.03 

.00 + Di*Z + D2*Z*Z 

.03*Z**3 

.TOTAL DENOMINATOR 



CI 



PASCAL 
PASCAL 
PASCAL 
PASCAL 
PASCAL 
PASCAL 
PASCAL 
PASCAL 
PASCAL 
PASCAL 
PASCAL 
PASCAL 
PASCAL 

PASCAL 



PASCAL 



PASCAL 
PASCAL 



m 
m 



• 




SAi 


A2+B1 


.C2 




FX7 


X7*X2 


.C1*Z 






FX3 


Xl*Xi> 


.C2*Z**2 






FX3 


X3+X3 


.2»C3*Z**3 


• 




FXG 


Xfi+XG 


.2*T 






FX<+ 


X7+X3 


.ADO C1*Z 






SX3 


82-87 




• 




FX* 
PX1 


X<++X5 
X3 


.ADO C2*Z**2 






FX7 


X6*X4 


.FINAL TERM OF 


• 




NX5 


B0,*1 








SA3 


Al+81 


.LOG(2.0) 






SA2 


A3+B1 




• 




FX6 

FXh 
FX1 


X5*X3 
X0-X7 
X5*M2 




• 




DX5 
NX4 
RX5 


X0-X7 

BQyXk 

X**+X5 




• 




RX5 
RX5 
NX6 


X5+X1 
X5+*6 
80, X 5 




# 












EXIT 


SAI 
SB2 


81B2 
XI 




• 




AX1 

S6i 


18 
XI 








SA6 


B6+2 


STORE RESULT 


• 




SAI 
SB7 

JP 


B6+1 

XI 

B7 


RETURN AOORESS 


m 












ER Ri 


SXy 


MESG1 








EQ 


ER 


.., 


m 


ERR2 


sxa 

EQ 


MESS2 
ER 






ERR3 


SXfi 


MESG3 




m 




EQ 


ER 






ERRi* 


SX5 


MESSif 






ER 


SAI 


B6+1 


RETURN ADDRESS 


• 




EQ 


177B 


JUMP TO MONITOR 




MES51 


DIS 


,=♦ ZERO ARSt 


JMENTE 


# 


MESG2 


DIS 


,=* NEGATIVE 


ARGUMENTS 




MESG3 


DIS 


,=* INFINITE 


ARGUMENTS 




MESG4 


DIS 


,=* INDEF ARGUMENTS 


• 


SQ2 


DATA 


5520 236 31<*77<t736B 




ONE 


OATA 


1.0 






oa 


DATA 


10395.0 




• 


01 


DATA 


6042 1030** 565563040 33B 




02 


DATA 


1734^52 53263470 42018 




03 


DATA 


. -23§.%19i30393980937 


• 


Cll 


DATA 


604311667777777767728 




C2 


OATA 


1734515 27Q1555267627B 




L0GE2 


DATA 


1717542 71027757500 00 8 


• 




DATA 


1653071 7363257 110 00C 8 






END 










IOENT 


SQRT 




• 




ENTRY 


SQRT 






81 B2 


BSS 


1 






SQRT 


SA7 


36+1 


SAVE RETURN AOO 


m 
• 




MXl 
SX6 
BX6 
LX6 

SXy 


kZ 
Bl 
-X1*X6 

18 
B2 





PASCAL 



• 



PASCAL 
PASCAL 
PASCAL 
PASCAL 
PASCAL 
PASCAL 
PASCAL 
PASCAL 
PASCAL 
PASCAL 
PASCAL 
PASCAL 
PASCAL 
PASCAL 
PASCAL 
PASCAL 
PASCAL 
PASCAL 
PASCAL 
PASCAL 



• 



PASCAL 
PASCAL 
PASCAL 
PASCAL 
PASCAL 
PASCAL 
PASCAL 










BXij 


-xi*xo 






PASCAL 


• 




BXb 


X6+XG 






PASCAL 






SAo 


3182 






PASCAL 
PASCAL 


• 




SA1 
ZR 


B6+3 
XI, OK 


GET ARGUMENT 




PASCAL 
PASCAL 


m 




NG 

SBi 

S82 


Xi,ERRi 

1 

-48 








• 




SA5 

OR 

ID 


CA 

X1,£RR2 
XI, ERRS 


.LOAD CA 






# 




PX7 

SA4 
FXO 


B2,X1 
A5+31 
X5*X7 


.W*2<-48) 
.LOAD CB 
.CA*W 






# 




UX5 


B7,Xi 


.PICK OFF N-48 ANO COEFFICIENT OF « 


PASCAL 






SX3 


87-82 


.N-48 -(-48) = N = 2 


♦K + R 


PASCAL 






FX2 


X4 + XB 


.CA*W + C3 = INITIAL 


GUESS 




• 




AX6 
1X5 

FX4 


X3,8i 
X3-X6 
X2*X2 


.K = N/2 

.N-K 
.8*8 






• 




1X3 
SA5 

SB2 


X5-X6 
X3+TWOR 

X6 


.N-K-K - R 

LOAD 2.**<R/21*2(-1) 

.82 = K 






• 




Fxa 

FX3 


X4+X7 
X2*X0 


.8*8 + « 

.8* (8*8 ♦ W) s DENOM 










UX6 


87, X5 


. 




PASCAL 


• 




SB2 
PX6 
NX3 


B2+87 
82, X6 
80, X3 


.INCORPORATE K INTO 
. 2(K)*2<R/2)*2(-l) 


EXPONENT OF 2** 


(R/2)*2 


• 




FX2 


X6/X3 


. (2(K)*2{R/2)*2(-i) 


) /OENOM = TERM! 








FX5 


X0»X0 


. (8*8 + W)**2 










FX7 


X7+X7 


.2*W 






• 




FX7 

FX3 


X7+M7 

X7*M4 


.4*W 
,4*W*8*8 










FX7 


X3+X5 


.NUM s <8*8+H)**2 + 


4*W*B*3 




• 




F X« 

SA5 

NX3 


X7*X2 
A4+81 

Bfl,KS 


.TERM1*NJM = 2*U 
.LOAD .25 






• 




. FX2 
FX3 


Xi/XO 
X5*X0 


.ARG/(2*U) 
. .25*(2*U) 










FX6 


X2+X3 


.SUM OF ABOVE = SQRT(ARG) 




• 












PASCAL 




RETURN 


SA1 
S32 


B182 
XI 






PASCAL 
PASCAL 


• 




AX1 
SBi 


18 
XI 






PASCAL 
PASCAL 






SA6 


B6+2 


STORE RESULT 




PASCAL 


• 




SA1 
S87 
JP 


86 + 1 

XI 

87 


RETURN ADDRESS 




PASCAL 
PASCAL 
PASCAL 


• 












PASCAL 




OK 


SX6 

EQ 


80 
RETURN 






PASCAL 
PASCAL 


• 


ERR1 


SXO 


MESGi 
ERR 






PASCAL 
PASCAL 




£RR2 


SXO 


MESG2 






PASCAL 


m 




EQ 


ERR 






PASCAL 




ERR3 


SXO 


MESG3 






PASCAL 




ERR 


SA1 


86+1 


RETURN ADDRESS 




PASCAL 


m 




Ea 


1773 


JUMP TO MONITOR 




PASCAL 
PASCAL 




ME SGI 


DIS 


,=* NEGATIVE 


ARGUMENTS 






m 


MESS2 


DIS 


,=* INFINITE 


ARGUMENTS 








MESG3 


DIS 


,=* INDEF ARGUMENTS 







m 

• 



# 



CA 


DATA 


.58578S<*37 


C3 


DATA 


.kZQk 951268 


QUART 


UATA 


1 7 io tta a u Qo u d y o iioi a l b 




DATA 


.353553390593 


TWOR 


DATA 


.5 




DATA 


.7071(16781186 




END 






IOENT 


ATAN 




ENTRY 


ATAN 


Bl Bk 


ess 


1 


AT AN 


SA7 


36*1 SAVE 




MXi 


kZ 




SX6 


Bl 




BX6 


-X1*X6 




LX6 


18 




SXCI 


Bk 




BXO 


-X1*XC 




8X6 


X6+XQ 




SA6 


313^ 



# ATI 



# Tl 



T2 



Ik 



LARS 



T3 



SA2 



B6+3 



GET ARGUMENT 



PASCAL 
PASCAL 
PASCAL 
PASCAL 
PASCAL 
PASCAL 
PASCAL 
PASCAL 
PASCAL 
PASCAL 
PASCAL 
PASCAL 
PASCAL 



• 



SA1 


ONE 




8X0 


X2 




or 


X2,£RR1 


TEST FOR BAD ARG 


SA* 


TANP1 


LOAD TANtPI/16) 


ID 


X2,ERR2 




SB1 


1 




AX2 


59 




SB7 


X2+777777B 


SAVE SIGN IN 87 


3X3 


X2-JC0 


X3 = A3S(ARG) 


FX7 


X3-X1 


.X-l 


SA5 


A4+B1 


•SQ2-1* ,klk..,.. 


PL 


X7,LAR3 


.GO TO LARS IF X .SE. 


IX? 


X3-X4 


.X-TAN(PI/16) 


FX6 


X3-X5 


.X-(SQ2-i) 


SB*+ 


BO 


.FLAG = 


SA5 


A5+81 


.LOAO TANC3PI/16) 


NG 


X7,NRR 


.IF X .LT. TAN(PI/16) 


PL 


X6,T2 




FX7 


X3*%k 


.X*TAN(PI/i6) 


RX6 


X3-X<+ 


,X-TAN(PI/16) 


Sdk 


Bl 


.FLAG = 1 


NXy 


BL,X6 




RX7 


X1+X7 


. 1.0 + X*TAN(PI/16) 


RX3 


XQ/X7 


.DIVIDE TO GET R 


JP 


NRR 




FX7 


X3*X5 


.X*TAN(3PI/16) 


RX6 


X3-X5 


,X-TAN(3PI/16) 


SB<» 


Bl+Bl 


.FLA3=2 


NXS 


30, X6 




RX7 


X1+X7 


.1.0 + X*TAN(3PI/16) 


RX3 


XQ/*7 


.DIVIDE TO GET R 


JP 


NRR 




FX7 


X3*Kk 


.X*TAN(PI/16) 


FXu 


X3+X<* 


.X+TAN(PI/16) 


SBi+ 


Bk+Bk 


.FLAG = k 


FX6 


X7-X1 


,X*TAN(PI/16) - 1.0 


NXS 


30, X6 


. 


FX3 


X5/XC 


.R 


JP 


NRR 


. 


SA2 


Al-81 


.SQ2+1= 2.1Ai<» 


SA5 


A5+31 


.TANC3PI/16) 


FXg 


X3-XZ 


.X-(SQ2+1) 


SB<+ 


Bl+81 


. 


PL 


X0,T^ 


. 



1.0 



• 



• 
• 

m 
m 



m 
m 





FX7 


X3*X5 


,X*TAN(3PI/16) 




RXu 


X3+X5 






KAb 


X/-X1 , 


,X*TAN(3PX/lb) - 1.0 




NX5 


BQ,X6 






RX3 


X5/XQ 


,R 




SB4 


B<++8i 


.FLAG = 3 


NRR 


RXy 


X3*K3 , 


,Z = R*R 




SAi 


A5+81 


,083 




SA2 


Al+81 


,032 




FX7 


XQ*XO 


,Z**2 




FX6 


Xi*XG 


,DB3*Z 




FX5 


X6+X2 


, <OB3*Z+D82> 




SA4 


A2+31 


,081 




FX1 


X<t*XQ 


,D8i*Z 




FX2 


X5*X7 


, ( )*Z**2 




SA5 


A4+81 


,DB0 




FX6 


X2*X1 






FXl 


X6+X5 


.TOTAL DENOMINATOR 




RX6 


X3/X1 


.R/DENOM 




SA2 


A5+81 , 


,0A3 




FX5 


X2*X0 


,DA3*Z 




SAI 


A2+8i 


,DA2 




SA4 


Ai+81 


,DAi 




FX2 


X5+X1 


, <DA3*Z+DA2> = ( 2) 




FX7 


X7*X2 


, ( 2)*Z**2 




Fxa 


Xi**m 


. DAi*Z 




SAI 


A4+B1 


,OA0 




FX2 


X7+XC 


, < 2)*Z**2 + DA1*Z 




FX2 


X1+X2 


,DAG + ABOVE 




RX7 


X6*X2 « 


•REST OF SERIES 




RX2 


X3-M7 


,ATAN(R) 




SA4 


C0R6 + 84 


.LOAD CORRECTION TERM i 




SAI 


A4+5 


,LOAO CORRECTION TERM 2 




NX2 


B0,X2 






RX5 


X 2+1*4 






NX% 


BQ,X5 






RX5 


X^tXi 






NX3 


B0,X5 






SX2 


B7-80 






BX6 


X3-X2 


.SIGN (ARG)*A TAN CABS (ARG 




SAI 


B184 






SB* 


Xi 






AX1 


i8 






S81 


Xi 






SAb 


86*2 STORE RESULT 




SAi 


B6+1 RETURN ADDRESS 




SB7 


Xi 






JP 


B7 




ERR1 


SXO 


MESGi 






EQ 


ERR 




ERR2 


SXu 


MES32 




ERR 


SAi 


B6+1 RETURN ADDRESS 




EQ 


1778 JUMP TO MONITOR 


MESGi 


OIS 


,=* INFINITE ARGUMENTS 


MESG2 


OIS 


,=* INDEF ARGUMEf 


slT = 


SQ2PI 


DATA 


2,414213 




ONE 


OATA 


1.3 




TANP1 


DATA 


1715627276570052' 


+ 6138 


SQ2H1 


DATA 


.i»i4213 




TAN3P 


DATA 


1717526067312533/ 


'7158 


033 


OATA 


17355170257740451 


L6128 


03 2 


DATA 


17405760164664^6: 


L1269 


DB1 


DATA 


17^16^765735356134248 



• 
• 



PASCAL 
PASCAL 
PASCAL 
PASCAL 
PASCAL 
PASCAL 
PASCAL 
PASCAL 
PASCAL 
PASCAL 
PASCAL 
PASCAL 
PASCAL 
PASCAL 
PASCAL 
PASCAL 






# 


DBO 


DATA 


17<*l«7737a0OiJ03a€QOB 


DA3 


DATA 


173541156432176501023 




DA 2 


DAIA 


17 375H1 1 6321 75 23115 B 




OAi 


DATA 


173753772377777777708 


• 


DAG 


DATA 


1650 754451450 41013148 




CORO 


DATA 


S.O 






DATA 


163&6G00G3OQ00OOQQOOB 


• 




DATA 


1715622 0773250 420 550 B 






DATA 


17167665 172122524702B 






DATA 


171753766737233 56473B 


• 




OATA 


CO 






DATA 


1715 622 G773250 420550 B 






DATA 


17166220 773250 420 551B 


• 




DATA 


171676651721225247Q3B 






DATA 


171753766737233564748 






END 




• 




IDENT 
PERIPH 


FQC,C. PPFW4 






TITLE 


F Q C - FREQUENC 


• 




SST 








PXAB 


OPSYN NIL 






DUMPX 


OPSYN NIL 


• 












SYMBOL 


DEFINITION 


# 


CHLOCK 


EQU 


G 




.FQCLCK 


EQU 


4 


• 








# 










T.FQCLCK 


EQU 


20436 




DELAY 


EQU 


20000 


• 


MAX 


EQU 


163 




C. LOWER 


EQU 


1 




CUPPER 


EQU 


3 


• 




MACROS 




• 


AOX 


MACRO 


X 






LOCAL 


C 




C 


SET 


X 


# 


IFAi 


IFNE 


0,C 




IFA2 


IFGT 


C,0 




IF A3 


IFLE 


C,776 


• 




AON 


c 




IF A3 


ELSE 








ADC 


c 


• 


FA 3 


ENDIF 






IFA2 


ELSE 




• 


IFA4 


IFGE 


C-778 






SBN 


-C 




IFAi* 


ELSE 




• 




ADC 


c 




IFA4 


END IF 






IFA2 


ENDIF 




• 


IFAi 


ENDIF 
ENDM 




• 


LOX 


MACRO 


X 






LOCAL 


c 




G 


SET 


X 


• 


IFL 


IFGE 


CO 




IFL2 


IFLE 


C778 



• 
• 
• 
# 



LOCK BYTE 



LOCK WORD (CHANNEL CHLOCKi 
5 SEC DELAY IF LOCKED OUT 
MAX NB OF COUNTERS 
LOWER BOUNDARY 
UPPER BOUNDARY 



ADO CONSTANT 



• 

• 






LOAD CONSTANT 










LDN 


C 


• 


IFL2 


ELSE 








LUG 


U 




IFL2 


ENDIF 




• 


IF I 


ELSE 






IF 13 


IFGE 


C-778 






LCN 


-C 


• 


IFL3 


ELSE 








LDC 


C 




IFL3 


ENOIF 




• 


IFL 


ENDIF 
ENOM 




• 


LOCM 


MACRO 


OFFSET, TABLE 






LOO 


TABLE 




Li 


IFEQ 


TABLE, D.RA 


• 




SHN 


6 




Li 


ELSE 






L2 


IFNE 


TABLE, O.CPAD 


• 




LPN 


37B 






SHN 


12 






AOO 


TABLE* 1 


• 


L2 


ENOIF 






Li 


ENDIF 








ADX 


OFFSET 


• 




ENDM 






ST CO 


MACRO 


LOC 


• 




STO 


LOC + i 






SHN 


-12 






STD 


LOC 


• 




ENOM 








USAGE OF 


DIRECT CELLS 


# 












ORG 


1 




LENGTH 


ass 


1 


# 


I 


BSS 


i 




PARAMS 


8SS 


2 




AODR 


ass 


2 


• 




ORG 


O.TO+5 




CMWRO 


BSS 


5 




BOUNDARY 


EQU 


CMWRD 


• 


SIZE 


EQU 


BOUNDARY 




LCKWRD 


BSS 


5 


• 


STAT 


BSS 


5 




PPIR 


ass 


5 




CPSTAT 


BSS 


5 


• 












INITIALIZE PP 


• 




ORG 


C.PPFWA 




FQC 


PPENTRY 


PPIR, CPSTAT 


• 




MAKE SURE 


THAT FQC IS ONL 






LON 


CHLOCK 


» 




RJM 


R.RCH 






LOX 


T.FQCLCK 






CRO 


LCKWRO 


• 




LOO 


LCKWRQ+C.FQCLCK 






PXAB 


LK 


m 




ZJN 


FQG1 


w 




LDN 


CHLOCK 






LOAD CM ADDRESS 



STORE CM ADDRESS 



m 



ABS ADDRESS OF PARAMETERS 

A3S AODRESS OF OUMP AREA 

RES FOR MTR REQUESTS 

TEMP 

CONTAINS BOUNDARY (2. PARAM WRO) 

CELL CONTAINING EXPONENT OF 

SEGMENT SIZE 

HOLDS LOCK WORD 

CONTAINS STATUS WRO (FIRST PARAM) 

PP INPUT REGISTER 

CONTROL POINT STATUS 



• 
• 



REQUEST CHANNEL 



GET LOCK WORO 



NO OTHER FQC 

THERE IS ANOTHER. FQC» DROP. CHANNEL 



# 

• 



OROP 



FQC1 






RJM 


R.DCH 


LDD 


D.PPMES1 


Cwu 


PPIR 


LDN 


P. ZERO 


CRO 


D.Tfl 


LDX 


DELAY 


STCO 


D.T1 


LDX 


M.RPJ 


RJM 


R.MTR 


LOC 


WMSG 


RJM 


R.DFM 


LDX 


M.OPP 


RJM 


R.HTR 


LJM 


R.IDLE 


LDN 


1 


STD 


LGKWRD+C.FQCLCK 


LDX 


T.FQCLCK 


CWD 


LCKWRD 


LDN 


CHLOCK 


RJM 


R.DCH 


GET PARAMETER ADDRESS AND 


LDD 


PPIR+3 


LPN 


373 


SHN 


6 


SBD 


D.FL 


SHN 


6 


ADD 


PPIR+% 


PXA8 


PA 


ADN 


2 


MJN 


*+3 IN US 


RJM 


ERR 


SBN 


2 


SHN 


12 


ADD 


D.FL 


ADD 


D.RA 


SHN 


6 


STCD 


PARAMS 



REQUEST FQC ANOTHER TIKE 



ISSUE OAYFILE MESSAGE 



m 



DROP PP 



LOCK 



DROP CHANNEL 



• 



ADO REFERENCE ADDRESS 






GET BOUNDARIES 






LDCM 


0, PARA MS 


CRD 


STAT 


ADN 


i 


CRD 


BOUNDARY 


LDD 


STAT+<f 


PXAB 


ST 


LPN 


3 


ZJN 


*+3 


RJM 


ERR 


LDCM 


0,8OUNDA 


LMC 


7777778 


PXAB 


UP 


STM 


BDTEST + 1 


SHN 


-12 


RAM 


BDTEST 


LDD 


SHE 


LPN 


7 


STD 


SIZE 


LMC 


10778 



CHECK IF LEGAL CALL 



OK 



0,8OUNDARY + C. UPPER GET UPPER BOUNDARY 

COMPLEMENT. 

INSERT IN TEST INSTRUCTION 



GET EXP OF SEGM SIZE 
USE 7 BITS ONLY 
RESTORE 
MAKE NEGATIVE SHIFT INSTR 



LL1 



LL2 



m 
m 
m 
m 



CL 



LA. A 



LP 



STM 


LC 


STH 


LL1 


LMN 


776 


STM 


LL2 


LOO 


BOUNOARY+C. UPPER 


SBD 


BOUNDARY +C. LOWER 


SHN 


12 


ADO 


BOUNDARY +C. UPPER* 1 


sao 


BOUNDARY +C.LOWER+1 


PXAB 


LE 


PJN 


*+3 


RJM 


ERR 


SHN 


** DIVIDE B 


PXAB 


LI 


STO 


LENGTH 


AOX 


-MAX-1 


MJN 


*+3 


RJM 


ERR 


LDO 


LENGTH 


SHN 


** 


PXAB 


L2 


STM 


ADDLE* 1 


SHN 


-12 


RAH 


ADDLE 


CLEAR 


COUNTERS 


LOO 


LENGTH 


STO 


I 


LON 





STM 


CNTLOW,I 


STM 


CNTHIGH,I 


SOO 


I 


PJN 


CL 


SET COMPLETION 9IT 


AOO 


STAT+2* 


LOCM 


S,PARAMS 


PXA8 


SS 


CHO 


STAT 


RECALL 


CENTRAL PROGRAM 


LOX 


M.RCLCP 


RJM 


R.MTR 


UJN 


LP 


MONITOR LOOP €3^ MICR 


AOO 


CMWRO 


RPN 





PSN 




UJN 


LA 


LON 


T.CPT1 


CRD 


CM«RD 


LOD 


CM«RD+*t 


LMO 


D.CPAO 


ZJN 


LA. A 


LDO 


CMHRD+3 


LMD 


D.CPAO 


NJN 


NA 


RPN 


1 



INSERT AT LC 



POSITIVE SHIFT 



COMPUTE LENGTH OF AREA 



NEGATIVE 



COMPARE WITH MAXIMUM 

TOO BIG 

INS LENGTH*2tSIZE IN TEST INSTR 



START MONITORING 
SECJ 
3 MICROSEC OELAY 

CHECK IF CONTROL POINT ACTIVE 
CPU A IS AT THIS CTLPT 



NO CPU - CTLPT NOT ACTIVE 
ITiS CPU 8 



A 


ADC 


BUTtbT 


fcUU 




PJN 


AOOLE 


AOC 




MJN 




UJN 


L3 


LCN 




UJN 



LC 



LO 



NA 



• 



NA. 



NAO 



LA 

LD 



LB 

LC 

1 

LC+1 



INCREASE APPROPRIATE COUNTER 



CHECK IF P IS IN RANGE 

UPPER INSERTEO BEFORE 

PiUPPER 

ADO LENGTH, INSERTED BEFORE 

P<LOW£R 

IN RANGE 

OUT OF RANGE 



SHN 
STD 
A OH 
SHN 
ZJN 
AOM 
UJN 

PSN 
PSN 
UJN 



I 

CNTLOW + 1,1 

-12 

LP 

CNTHIGH + i,I 

LP 



LB 



DIVIDE BY 2*SIZE 



OVERFLOW 
DELAY 



CONTROL POINT NOT ACTIVE 



LDCM 
CRD 

LDD 
PXAB 
ZJN 
LJM 

LDD 

PXAB 

NJN 

LOCH 

PXAB 

CRD 

UJN 

LON 

RJM 

LDCM 

CRD 

LDD 

PXAB 

ZJN 

LJM 

LDD 

NJN 

LDD 
STD 

LDD 

LPN 

SHN 

ADD 

SHN 

ADD 

CRD 

PXAB 

STCD 



W. CPSTAT, D.CPAD 
CPSTAT 

CPSTAT +C.CPEF 

EF 

DROP1 

CPSTAT+C.CPSM 

MF 

NA. 

0,PARAMS 

PA 

STAT 

NAi 

M. PAUSE 

R.HTR 



MACH MAL 



W. CPSTAT, D.CPAD 

CPSTAT 

CPSTAT+C.CPEF 

EF 

*+3 

DROP1 

CPSTAT+C.CPSM 

NAO 

CPSTAT +C.CPRA 

D.RA 

PPIR+3 
378 

6 

D.RA 

6 

PPIR+J+ 

STAT 

PA 

PARA MS 



GET STATUS 

CHECK ERROR FLAG 

DROP IF NONZERO 
CHECK MOVE REQUEST 
MOVE 

GET STATUS WORO 
PAUSE 

WAIT UNTIL MOVE FLAG CLEAR 
OR ERROR FLAG SET 

ERROR FLAG SET 
MOVE FLAG STILL SET 
RESTORE REFERENCE ADDRESS 

RESTORE PARAMETER ADDRESS 



# 

m 



NAi 



# 
# 



XFER 



# 
• 



RR 



LDD 


STAT+% 


PXAB 


DQ 


LPN 


2 


NJN 


*+3 


LJM 


LP 


DUMP 


COUNTERS 


LDCM 


2,PARAMS 


CRD 


CMMRO 


LDCM 


tf,CMWRD+3 


PXAB 


AA 


SHN 


12 


SBD 


CPSTAT+C.CPFL 


SHN 


6 


ADD 


LENGTH 


MJN 


**3 


RJM 


ERR 


SBD 


LENGTH 


SHN 


12 


ADD 


CPSTAT+C.CPFL 


ADO 


D.RA 


SHN 


6 


PXAB 


AO 


STCO 


ADDR 


LDX 


P. ZERO 


CRD 


CMMRO 


LDN 





STD 


I 


LDH 


CNTHIGH,! 


PXAB 


HI 


STD 


CMWRO+3 


LDM 


CNTLOK,I 


PXAB 


LO 


STD 


CM#RD+4 


LDCM 


0,ADOR 


ADD 


I 


CWD 


CMWRO 


AOD 


I 


PXAB 


IX 


SOD 


LENGTH 


PJN 


XFER 


SET COMPLETION BIT 


LOO 


STAT+i* 


SCN 


1 


AON 


1 


STD 


STAT+% 


LDCM 


Ot PARA MS 


CWO 


STAT 


LJM 


0ROP1 


ERROR 


ROUTINE 


ENM 


X 


LDM 


ERR 


LPN 


7 


STM 


MS&2 ' 


LDM 


ERR 


LPN 


7aa 


SHN 


3 


ADC 


2R0G 


RAM 


MSS2 



CHECK FOR DUMP REQUEST 



GO ON MONITORING 



GET ADDRESS OF DUMP AREA 



AREA OUTSIDE FIELD LENGTH 



# 



OJMP NOW 



NEXT COUNTER 



GO DROP PP 









DROP! 



# 



MSG 
MSG1 

MSG2 

MSG 



• 



CNTLOW 
NTHIGH 



LDM 
SHN 
Sin 
LPN 
STM 
LDM 
LPN 
SHN 
ADC 
RAM 
LDC 
RJM 
LDX 
CRD 
LOD 
SHN 
STD 
LDX 
STO 
LDX 
RJM 



ERR 

12 

tRK 

7 

HS31 

ERR 

7D8 

3 

2RuQ 

MSS1 

MSG 

R.DFM 

P. ZERO 

D.TO 

O.CPAQ 

-7 

D.Ti 

F.ERPP 

D.T2 

M.SEF 

R.UTR 



OAYFILE MESSAGE 
REQUEST PP ABORT 



DROP PP JOB 



LDX 
RJM 
LOX 
CRD 
LDN 
STD 
LDX 
CWO 
LDN 
RJM 
LJM 

OUMPX 

MESSAGES 

DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



CHLOCK 

R.RCH 

T.FQCLCK 

LCKHRQ 



LCKWRD+C.FQCLCK 

T.FQCLCK 

LCKWRO 

CHLOCK 

R.OCH 

DROP 

DROP! 



H*FQC ERROR AT * 







H*WAITING FOR FQC* 

8 



REQUEST CHANNEL 



CLEAR LOCK 
DROP CHANNEL 



• 



COUNTER AREA 



BSS 
EQU 



CNTLOIH-MAX*-! 



m 
m 



TEST EQU CNTHIGH + MAX + 1 

END FQC 

FQCOUT. E. MARMIER, OCTOBER 1971. 

Y POSYS, POSYS ANO FQC INITIALIZE CM LOCATIONS 50018 THROUGH 101858 <CF. 






AIN PROGRAM DECLARATIONS). THE PERIPHERAL PROCESSOR ROUTINE FQC SUPER- 



TT5Tl~5 int. UO£.^Tl\Ul)KHIl USJ.INO NU HUKt InMH 10 u j r 

URING EXECUTION OF THE USSR PROGRAM THE CODE AREA MONITORED BY R3C RE- 

ENGTH - GLKLGTh, WHERE BLKLGTH HAS THE FORM 2»N. ONE FREQUENCY COUNTER IS 



SSIGNED TO EVERY BLOCK. BLKLGTH IS CHOSEN AS SMALL AS POSSIBLE, BUT SO 



» 



# 
• 






• 



• 



• 



# 



FCU - f-CL) iS AN INTEGER MULTIPLt OF BLKLGTH. 

F FCKINO - =*= THE LISTING OF THE USER PROGRAM IS OUTPUT MARKED WITH AS- 



$T-* 

ADDRESS = «.,20 3uOC9? 
AR FGL, FCU I ADDRESS SLOWER AND UPPER BOUND OF MONITORED CODE AREA*; 
SLKL3TH * 1..6M FCKIND I CHAR? 
OUTSIDE 1 INTEGER ^NUMBER OF TIMES THE P REGISTER WAS FOUND 

NOT TO POINT INTO THE CODE AREA*; 
COUNTERS t ARRAY ICINOEXJ OF INTEGER? 
TOTAL J INTEGER; I I CINOEX? 

CTRNUMBER1 I CINOEX ^WILL BE SET TO NUMBER OF COUNTERS - 1+1 
FQCFILE! IN3 I FILE OF CHAR cTHE LISTING, IF ANY*; 

i»FQCFILE IS NON-LOCAL AND MUST BE DECLARED IN THE MAIN PROGRAM.* 

ROCEDURE OUTREALCX I REAL) 5 
eC < X < 10 0* 
TYPE TG2 = 0..2; 
VAR Y l REAL; N * T3 2? 
PROCEDURE OUT(Y I REAL*, M I T32) \ 

BEGIN IF M = N THEN WRITECE.r); WRITE < CHRURUNCCY) * 27) )| 
IF M < 2 THEN OUTCiflMY - TRUNC(YI), M+l) ; 

END! 
BEGIN Y 1= X) N 1 = Q: WHILE Y > 1 DO BEGIN Y 1= Y/18; N t= N+l END| 

Y t= Y + C.QSC5; IF Y > 1 THEN BEGIN Y 1= Y/1QJ N »= N*l END; 

OUT(lu*Y,C) ; 

end; 



# 
• 



ROCEDURE PLOT; 

e THIS PROCEDURE IS CALLED IF FCKIND = =*=. IT TAKES AS INPUT FROM 
^ FILE FQCFILE THE LISTING OF THE USER PROGRAM AS PROCUCEO 8Y THE COMPI- A 

# LER. THE LISTING CONTAINS AN ARBITRARY NUMBER OF LINES ANO AN EOL <A # 
ZERO HORD) . EACH LINE CONSISTS OF A BLANK, A 6-DIGIT OCTAL ADDRESS, A 

BLANK, A TEXT OF LENGTH > 0, ANO AN EOL. IF PLOT FINOS THE SECOND CHAR- 
- ACTER IN A LINE TO BE BLANK, WHICH MEANS THE USER ILLEGALY USED THE A 

# $C* COMPILER INSTRUCTION, PLOT ISSUES AN ERROR MESSAGE ANO COPIES THE # 
REST OF THE FILE ONTO OUTPUT. W 

_ FQCOUT GOES THROUGH FQCFILE EXACTLY ONCE. A 

# THE KEY VARIABLES USED ARE LADR1, LADR2, BLKADR1 ANO 8LKA0R2. WHENEVER # 
PLOT PROCESSES A LISTING LINE, LADR1 = (BINARY VALUE OF) THE AOORESS 

ON THE LINE, LA0R2 = ADDRESS ON THE NEXT LINE, BLKADR1 = ADDRESS OF THAT 
_ CODE BLOCK WHICH CONTAINS THE BEGINNING OF THE CODE THE LINE TRANSLATED ^ 

# INTO, AND 8LKADR2 = BLKADR1 + BLKLGTH. WE THUS HAVE 3LKA0R1 < LADR1 < LAOR2 # 
AND LADR1 < BLKADR2, EXCEPT AT THE BEGINNING WHEN LADR1 » FCL 

ANO LADR2 < FGL. 

# IF LAOR1 > LAOR2 NO ASTERISK IS WRITTEN (THE LINE TANSLATED INTO NO SU- # 
PERVISED CODE). OTHERWISE TWO CASES ARISE! IF LADR2 < 8LKA0R2 THE LINEES 

TRANSLATION LIES ENTIRELY IN THE BLOCK DELIMITED BY BLKAOR1 ANO BL«ADR2. 
^ THE FREQUENCY COUNT ASSIGNED TO THE LINE IS THAT BLOCKES FREQUENCY COUN- _ 

# TER VALUE * CLADR2 - LAORi) / BLKLGTH. IF 8LKADR2 < LADR2 THE CODE PRO- # 
OUCED BY THE LINE OCCUPIES, SAY, Wl WORDS IN A FIRST BLOCK, C OR MORE 

SUBSEQUENT BLOCKS ENTIRELY, AND W2 WORDS OF A LAST BLOCK. THE FREQUEN- 
_ CY COUNT ASSIGNED TO THE LINE IS THEN ^ 

# FREQUENCY COUNT OF FIRST BLOCK * Wl/BLKLGTH # 
+ SUM OF FREQUENCY COUNTS OF ALL BUT THE LAST SUBSEQUENT BLOCKS 

* FREQUENCY COUNT OF LAST BLOCK * W2/3LKLGTH. 

# AN ASTERISK IS PRINTED DEPENDING ON THE RESULTING FREQUENCY COUNT OF # 
THE LINE MODIFIED BY A SCALING FACTOR. * 

_ CONST WIDTH = W7% _ 

TYPE STARPOS = 0. .WIDTH; # 

VAR MAX i INTEGER? SCALE I REAL| ^MAXIMUM COUNTER VALUE; SCALING FACTOR* 

VAL, TVAL I INTEGERS POS 1 STARPOS; ~ . . 

^ LAORI • LADR2 » ADDRESS; *LINE ADDRESSES* _ 

# BLKADR1, BLKAOR2 i ADDRESS; i»BLOCK DELIMITING ADORESSES* # 
I t CINDEXJ CHCNT I 0..137J i»INOEX FOR ARRAY OF COUNTERS; CHARACTER COUNT* W 
A * ARRAY I1..63 OF CHAR? K i 1..6; ,»F0R HOLDING ADDRESSES CHARACTERWISE* 

# PROCEDURE FINDSCALEf # 

r» THIS PROCEDURE RETURNS A SCALING FACTOR THROUGH THE VARIABLE 
SCALE. THE SCALING FACTOR HAS THE PROPERTY THAT 1 PRINT POSITION 

• CORRESPONDS TO 2*Q OR 2+t-Q) PERCENT'S FOR SOME Q. SCALE IS HADE A 

TO BE > LOWSC, WHERE THE VALUE ASSIGNED TO LOWSC WAS FOUND EX- . # 

PERIMENTALLY.* . „, w 



A VAR SC, LOWSC « real; 

m K t L..137? P, PP » real; 

BEGIN LCWSC 1= WIDTrt»FACTOR*(BLKLGTH + 3LKL3TH DIV 3) / (MAX » I) J 

SC t= 25/total; 

^ WHILE SC < LOWSC DO SC 1= 2+SCJ 

m scale t= sc; p t= ioo/csc^totad ; 

WRITE ( = 1 POSITION CORRESPONDS TO = ) ? 
OUTREAL(P)? WRITE (= 0/9 = )? WRITECEOD? 

~ p »= ic*p; pp i= o; 

• WRITE(=J=); FOR K l= 1 TO 79 DO WRITECS =) ? 
FOR K »= TO k 00 

BEGIN WRITER =) ; OUTREAL(PP)} PP 1= PP ♦ P? 
~ END! 

• WRITE(EOL); 

FOR K «= 1 TO 68 00 WRITE(E =) ? 

WRITE (EPERCENT AGE SCALE* =) i FOR K t= 1 TO h DO WRITEfEI --I =) | 

_ write (ei----i--e) ? write(eol,=0=)| 

• end; 

BEGIN r»PLOT + 
A RESET (FQCFILE) ? 

# MAX 1= q; 

for i t= c to ctrnum8er1 do 

if max < cguntersei1 then max »= counterstljj 

findscale; 

LADRl t- FCL J 

fREAO FIRST LISTING ADDRESS INTO LADR2» * 
^ LADR2 t= C; 

• FOR K »= 1 TO 6 00 

begin get(fqcfile) ? a£kj != fqcfile*? 
ladr2 « = 3*lagr2 + orq (fqcfile*) - 27; 

-> eno; 

• I 1= fl! BLKADRl «= FCL; 8LKA0R2 i= FCL + BLKLGTH; 

,* MAIN LOOP WHICH GOES LINE 3Y LINE THROJGH FQCFILEl * 
REPEAT WRITE(EOL) % 

# WRITE (E E,A£l3,A£2],A£33,A£^],A£5J,AC6]) ; ^ADDRESS OF LINE* 

GET (FQCFILE) ? CHCNT *= 7 J 
r»CQPY REST OF LINE I * 

- REPEAT WRITE(FQCFIL£*J ; GET (FQCFILE) ; CHCNT 1= CHCNT + U 

# UNTIL FQCFILE* * EOL; 

fGET NEXT LADR2I * 
GET(FQCFILE) ; 
_ IF FQCFILE* = EOL THEN LA0R2 1= FCU ELSE 

• BEGIN 

GET(FQCFILE) ; 

IF FQCFILE* = = = THEN ^ILLEGAL USE OF SC+ + 
~ BEGIN 

# WRITE(EOL,= =); FOR CHCNT 1= 2 TO 47 DO WRITE(E-=)1 

WRITE(E $C+ NOT ALLOWED IF OPT = FC*. E) % 
FOR CHCNT J= 76 TO 121 DO WRITE(E-E); WRITECEOD? 
_ WRITECE E)| GOTO 1? 

• END] 

AC11 *= FQCFILE*; GET CFQCFILE) ; A£2] t= FQCFILE*; 

GET(FQCFILE) ; A£31 t= FQCFIL£*| GET (FQCFILE) \ ACM 1= FQCFILE*? 

- GET(FQCFILE) 5 A[5J 1= FQCFILE*! GET (FQCFILE) \ A£6] I- FQCFILE*; 

# LADR2 i= (C(( 0RD<A£11)*8 + 0R0(A£21) )*8 + OROCAC33) )*8 

+ ORD(A£*f]) )*3 + 0R0CAC51) ) *8 + 0RD(A£63) 
- 36666633J 
ENO r»GET NEXT LADR2*; 

IF LADR2 > LADRl THEN ,»LINE TRANSLATED INTO SUPERVISED CODE* 
BEGIN 
_ IF LADR2 < BLKADR2 THEN r»THIS BLOCK CONTAINS WHOLE LINE TRANSLATION* 

# BEGIN 

val t= trunc( counters£i3*(laor2 - ladrl) /blklgth * 0.5 >; 
if la0r2 = 3lka0r2 then 
- begin 3lka0r1 1= blkadr2? i i- i*1j 

# 8lka0r2 * = 8lkadr2 + blklgth; 

end; 

END ELSE 

- BEGIN 

• ^PARTIAL VALUE FROM FIRST BLOCK! + 

TVAL := COUNTERSCIJ * (8LKA0R2 - LADRl); 
ELKADR2 1 = 8LKA0R2 + BLKLGTH; I i- I+i; 
VAL f = 2 ; 

# while ladr2 > 3lka0r2 ,»8l ogk is entirely covered 

by translation of line* do 

begin val t= val + countersci]? i 1= 1+1 ; 
^ blka0r2 1= 3lkadr2 + 8lklgthj 

# end; 

blkadrl 1 = 8lkadr2 - blklgth? 
^partial value from last block! + 

• tval != tval + gounters£ij * (ladr2 - blkadrl)? 

val »= val + truncctval/blklgth + q.5); 
end; 



• 



# 
# 



# 



• 
» 



• 



POS »= TRUNCWAL * SCALE + 3.5); 

IF FOS t THEN 

3EGIN 

FOR CHCNT i= CHCNT ♦ 1 TO 33 00 WRITECE =) ? 

IF POS > WIDTH THEN 

BEGIN FOR CHCNT t= 89 TO 126 DO WRITE<E*=M WRITER = >£ 

OUTREAL(100*VAL/TOTAL) J WRITE ( = 0/0=) J 
END ELSE 

FOR CHCNT 1= 1 TO POS DO WRIT£<=*E> J 
END? 

LAORi 1= LADR2? 
END i»LINE TRANSLATED INTO SUPERVISED CODE*; 
UNTIL LADR2 > FCU \ 



.♦COPY REST OF FQCFILEI* 
WRITE(EOL,= =) J IF FQCFILE+ * £OL THEN FOR K 1= 1 TO 6 DO WRIT£«A[K]>; 
^ i* WHILE FQCFILEt t EOL DO 

# BEGIN WRITE (FQCFILE*) ! 

REPEAT 3ET(FQCFILE) J WRITE ( FQCFILEt) ; UNTIL FQCFILE+ = EOL; 
GEKFQCFILEJ5 

A end; 

# WRITE(= 5, EOL) J 
END ^PLOT*; 

A ROCEDURE OUTCOUNTERSJ 

# WAR A,A1,0 X ADDRESS} I X CINDEX! 

K » 1..6? ALF * ARRAY CI.. 61 OF CHAR? 
NEWLINE I BOOLEAN? 
^ BEGIN WRITE(=i=,EOL) ? 

# «= * * BLKLGTHI 
WRITE <= E) ; 

NEWLINE 1= true; A * = fcl; 
_ FOR I is & TO CTRNUMBERi DO 

# BEGIN 

IF 1 MOD 4 = Q THEN 
BEGIN Al 1= A| A i = A+Dj 
_ FOR K t= 6 OOWNTO 1 DO 

# BEGIN ALFTK1 1= CHR<A1 HOD 3 + 27) ; 

Al J= Al 01 tf b; 
END? 

_ if newline then write(eol,e =) else write(= = > ; 

# newline *= ^newline; 

for k 1= 1 to 6 do write ( alf£k1 ) i 
end; • 
_ write (counterscu) ? 

# end; 
write(eol); 

EHO i»OUTCOUNT£RS+; 

# EGIN !»MAIN PROGRAM* 



• 



WRITEUE BLKLGTHt=} f BLKLGTH,£OL> ; 






TO CTRNUM3ER1 



00 TOTAL «= TOTAL ♦ COUNTERS til 5 
WRITEU5 OUTSIOEl i), OUTSIDE, = =»=<=! J 



OTAL »= outside; FOR I t= Q 
WRITEUE TOTAL »E) , TOTAL, EOL) ; 
IF TOTAL t C THEN 
BEGIN OUTREAL(i00*OUTSID£/TOTAL) ; WRIT£<= 0/0)=) J WRITE(EOL) 
END ? 

IF FCKIND = =*= THEN PLOT ELSE OUTCOUNTERS? 
NO. 

IOENT PMD 

ENTRY PMD 



PMD IS LOADED 8Y 
MONITOR LOADS AN 



3Y PMD. 



m 



WRITEOCT 
TEXT 
INTGR 
EREAL 

ALF 
CHAR 
30 OL 

CALL 



GFIELD 



NLINE 



CASE 



RNEQV 
NEQV 



# 



DIRECT 



ALFS 



• 



THE 
Bl • 
35 s 
86 = 
X5 ■ 
X6 = 
X7 = 

EQU 
EQU 

EQU 
EQU 
EQU 
EQU 
EQU 



THE MONITOR AS AN OVERLAY. PREVIOUS TO ITS CALL, THE 
AB3REVIATED CONTEXT-TABLE INTO THE INPUT SUFFER TO BE USED 
REGISTERS ARE LEFT IN THE FOLLOWING CONFIGURATION! 
1 

Y,THE POINTER TO THE CURRENTLY ACTIVE BLOCK OF THE RT-STACK 
X.ADDRESS FOR WHICH PMD SEEKS A CORRESPONDENCE IN THE TABLE 
6T,ABS. ADR. OF WORD IMMEDIATELY PRECEDING FIRST ENTRY IN TABLE 
ET.ABS. ADDRESS OF THE LAST WORD OF THE TABLE 
RETURN ADDRESS 



• 



BAIZRO 

EQ 

ENOM 

MACRO 
Sr»BJ 

axc 

Si*3J 

ENDM 

MACRO 

3X1 

SX2 

CALL 

ENOM 

MACRO 

SB4- 
SA* 

ENOM 

BSS 

SA7 

NLINE 

SAi 

SX2 

CALL 

SX1 

SX2 

CALL 

SX1 

SX2 

CALL 

SAH 

SB2 

SAI 

GFIELD 

EQ 

SAi 

SB3 

GE 

SB3 

SB3 

LT 

GFIELO 

8X2 

SA2 

SB3 

AX2 

JP 

LXi 

ZR 

MXy 

BX6 

SAB 

BXi 

sxz 

NZ 
SXi 



illB 
1128 

11%3 
1158 
1173 
12S8 
1213 

P+i 

P 



XI,8J,N 

N 

3J,XI 

xo 



xo-xe 

Bl 
CHAR 



BM-Z 

Bk 



1 

RNEQV 

B^-l 
17 
ALF 
5^3 

1 
CHAR 

1R 

1 

CHAR 
Bk 
X<+ 

85+32 
X%,B3,%G 
33, DIRECT 
XI 

Ai-85 
B3. TUMMY 
5QQ03 
Al-83 
B3, TUMMY 
X%,83,22 
RHEQV 

SWITCH* B3-1 
X2 
18 
63 

6 

X1,RETALF 

54 

X0*X1 

SVALF 

-XS*Xi 

842 

XI, CHAR 

1R 



.♦CALLED AT ONLY ONE POINT 






.♦GETS A FIELD (DEPENDENT ON N)SF XI 
.♦AND STORES IT IN 8J 

fWRITES AN EOL 

.♦WRITE CHAR 

.♦MOVES THE POINTER TO THE NEXT RECORD 



(♦WRITES <NAME> = <VALU£> 
(♦GET NAHE 



■♦GET RELATIVE ADDRESS OF VALUE 

•♦COMPUTE ABSOLUTE ADR ANO STORE VALUE IN XI 

r*IS THIS A VAR PARM. 



• 



r*GET THE TYPE 



.♦WRITE VALUE 



.♦WRITE A BLANK FOR EOL=S 



RETALF 



CHARR 



• 



CEOL 



CODE 
PT 



SA1 
EU 
3A1 
SB7 
JP 
ZR 
BXy 
AXO 
ZR 
SA1 
SX2 
EU 
SX2 
SA1 
EQ 
FOR. POINTER 

sxo 

NZ 

SA1 

EQ 



SVALF 

ALFS 

RNEQV 

XI 

B7 

Xi,CEOL 

XI 

6 

XiUCHAR 

UNOEF 

7 

ALF 

3 
EOL 
ALF 

TYPES. PRINTS = NIL = 
X1-200330B 

XQ,WRITEOCT 

NIL 

ALF 



i» EEOLE 



OR THE OCTAL ADDRESS 



POST-MORTEM- DUMP IS AN AUTOPSY OF THE USER PROGRAM FOLLOWING A 
FOR WHICH THE MONITOR REGAINS CONTROL. THE BODY LIES BELOW 



FATAL ERROR 



THE HEAD STORES INFORMATION 

PMO 



• 

m 



SHODR 



SI 






S2 



THE 



TUMMY 



SA7 


RADR 


SA6 


SVET 


SA4 


X6 


SBi+ 


X<+ 


S61 


1 


3X7 


X5 


SA7 


SV3T 


SX1 


FIRST 


CALL 


TEXT 


SX1 


36 


SX2 


6 


CALL 


WRITEOCT 


NLINE 




SA5 


SV8T 


BEGINS HERE 


. IF PMD GETS 


SHOULOERS BEAR THE WEIGHT 


SA^ 


B4+X5 


GFIELD 


Xit,33,22 


LE 


83, B6, FEET 


GFIELD 


X<», 33,^0 


sat* 


B3+X5 


SA* 


34 


GFIELD 


X<+, 83,22 


GT 


33, 36, SI 


SXy 


Bl 


SB3 


Xk-2 


1X6 


X0+X4 


SA6 


Bk 


SA3 


85+81 


sas 


X3-1 


GT 


B3,LGi 


NLINE 




SA1 


Bi»-1 


SX2 


12 


CALL 


ALF 


SAi 


STi 


SX2 


k 


CALL 


ALF 


SX3 


B6 


LX3 


h5 


HXy 


57 


SAi 


OCTA 


SB2 


-6 


BX2 


-Xfj*X3 


1X1 


X1+X2 


LX3 


3 


LXi 


6 


SB2 


B2+81 


LT 


32, S2 


LXI 


12 


SX2 


7 


CALL 


ALF 


CASE 




N6 


Xi*,LEG 


STOMACH REGURGITATES 


SX7 


TUMMY 


EQ 


NEQV 


SX7 


* 


CASE 




PL 


X4,NEQV 



.♦SAVE RETURN ADDRESS 

.♦SAVE ADR OF LAST ENTRY OF TABLE 

.♦SET POINTER TO REL. ADR. OF (MAIN) 

.♦THIS SHOULD SOON BE STANDARD 

.♦SAVE AOR OF FIRST ENTRY OF TA1LE 



.♦LOCATION OF THE TRAP 



CARRIED AWAY, IT LOSES ITS HEAD. 

.♦GET ENTRY FOR MAIN PROGRAM 

.♦GET ITS STARTING ADR 

dWEEVE REACHED THE BOTTOM OF THE STACK 

.♦GET LINK 

.♦MOVE THE POINTER TO THE NEXT PROCEDURE 

.♦GET ENTRY 

.♦GET SA 

.♦UNTIL CORRECT INTERVAL IS LOCATED 

.♦GET PREVIOUS COUNT - 2 
fUPOATE THE COUNT 



dNEW X 

.♦OUTPUT EACH PROCEDURE AT MOST 3X 



DEPROCEDURE NAMEE 

.*= ATIE 

DXXXXXO OX 

eXi==aa0QOQGO 0= 

.♦THIS LOOP STORES AN AOORESS AS AN ALFA VAL, 






# 



f=<RETURN ADDRESSED 



DAT LEAST ONE VALUE 



THE LEGS WALK THROUGH THE STACK, 



• 



# 

m 






LEG 
LGi 



NLINE 

SAJ 

AX3 

SB5 

SA5 

SA1 

SA1 

SB4 

NE 



85*01 

18 

X3 

SVBT 

SVET 

XI 

XI 

35,SH00R 



HAVING COHPLETED THE LAST LEG, WE 



KICKING 
FEET 



AROUND 

SBif 

NLINE 

SB5 

SAi 

SX2 

CALL 

SX7 

CASE 

PL 



THE 



FEET STEP 
NLINE 
SAh 
SB7 
JP 



RADR 
SVET 
SVBT 

SVALF 

FIRST 

OCTA 

EOL 

NIL 

UNDEF 

ST1 

ST2 

SWITCH 



3SS 

BSS 

BSS 

BSS 

OIS 

DATA 

DATA 

OATA 

DATA 

DATA 

DATA 

VFD 

VFO 

VFD 

VFD 

VFD 

VFO 



X5+8<* 

BO 

ST2 

7 

ALF 

* 

X<*,NEQV 

FROM THIS FEAT 

RADR 

B7 

1 
1 
1 



,=1PR0GRAM TERMINATED 

lciLsocaoaoo a 

10LEOL 
10LNIL 

10L<UMD£F> 
10L ATI 
10L (MAIN) 
2+2/10, 18/INTGR 
<*2/20,18/ER£AL 
2*2/lG,L3/ALFS 
42/1,13/CHARR 
^2/6,18/BOOL 
<+2/6,18/PT 



REPEATING THE ABOVE, UNTIL EMPTIED 

^X3=0---0<DL><RA> 

t»B5 = N£W Y 

fFETCH 8T AND STORE IN X5 

fFETCH £T 

.♦RESET POINTER 

r»IF 85=0 THEN 35=3ASE AOR FOR GL08ALS 

SEE THAT THE FEET (GLOBALS) ARE STILL 

r»SET POINTER TO JUST BEFORE THE GLOBALS 



.♦E(MAIN) 



AND MAY IT REST 

END 



ATI 



IN PEACE 



r»AMEN 



• 
# 



• 



w PALC ALTC CYBERNET CENTER 

HOURS AVAILABLE FOR CUSTOMER SERVICE ~ 

TERMINAL ACCESS 

MNQ3G0-243Q TUii 300-2400 WOQ30a-24Ca TH0300-240G 

FRG80Q-24Q0 SAii803-i70C CLOSED SUNDAY 

OVER THE COUNTER 

MNQ80&-24QC TU«GCG-24GC WD3§fla-240G TH0Q0Q-24Q0 
^ FR2GQ0-240fi SA33Q8-17QQ CLOSED SUNDAY 

# THE ABOVE TIMES ARE SUBJECT TO CHANGE WITH 24 HOUR 

NOTIFICATION. 

_ DUE TO THE INCREASED WORKLOAD WE HAVE EXPERIENCED RECENTLY, 

# OUR NORMAL HOURS OF AVAILABILITY TO TERMINAL USERS MUST REVERT TO 
OUR PREVIOUS SCHEOULE.THIS IS REFLECTED ABOVE. 

WE ASK ANY USERS WHO HAVE SPECIAL REQUIREMENTS DURING THE 
_ HOURS OF 0000-0800 TO MAKE ARRANGEMENTS WITH M.L.FRAZIER 

# DURING THE DAY PREVIOUS. WE WILL ATTEMPT TO HONOR THESE REQUESTS 
WHENEVER POSSIBLE. THAMK YOU. 

_ FOR OPERATIONS AND SCHEDJLING ASSISTANCE, CALL 

# DAYS! (415) 493-3920 EXT 421 

NITES* (415) 493-7523, 493-7280, 493-7480 

_. FOR PROGRAMMING ASSISTANCE, CALL 

# (415) 493-8920 EXT 249 

_ PERMANENT FILE AND I/O QUEUE STATUS— 

# ALL PERM FILES ARE INTACT. 

ALL INPUT/OUTPUT QUEUES ARE INTACT. 

***♦*♦ IMPORTANT NOTICE TO ALL USERS **************** 

SORTMRG, UPDATED TO LEVEL 340, WILL BE INSTALLED 
ON JUNE 2b, 1973. 

# FORTRAN EXTENDED (FTN) , UPDATED THROUGH PSR SUMMARY 348, 
WILL BE INSTALLED ON JUNE 28, 1973. 

_ SIS, UPDATED THROUGH PSR SUMMARY 340, 

# WILL BE INSTALLED ON JUNE 26, 1973. 



# 






************************* *************************** 



# 



t 



• 
• 

* 

# 



10/C3/73 PADC 6633-S/M 3C65 LEVEL R 08/15/73 
09.21.16.if.FZQSBK2 

09.21. 16. IP 000001 INPUT UNITS USEO. 
09. 21. 16. f SEQUENCE, 2aS. 
09.21.16.$CHARGE,F3Q37 . 
a9.21.16.PRINT,CM120flC ,T53 ,Pk »MTi. 
C9. 21. 16. REQUEST .PASCAL, HI. (PASCAL, NO RING) 
U9. 2 1.22. COPY 8F( PASCAL, OUTPUT) 
09. 21. 22. MT 37 ASSIGNED TO PASCAL 
09.22.09. VSNPASCAL 

ii9.22.lii. MT 37 VISUAL REEL NUMBER IS PASCAL 
09. 22. 10, FILE OPENED - OUTPUT 

09. 22. 18. OP 008283 STORAGE OATA BLOCKS ON FILE OUTPUT 
09. 22. 13. IP 00*0(11 STORAGE DATA BLOCKS OH FILE INPUT 
09. 22. 18. CM 012000 CM CELLS USED. 

09.22. 18. CP 000000.024 CP SEC. USEO. 
09.22. 13. 10 000007.336 10 SEC. USED. 
09. 22. 18. SS 000000.330 SYSTEM SEC. USED. 
09. 22. 18. AC - END OF J03. 



# 
# 

m 
m 






